home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / tcp / adt_ixemul.lha / adt_ixemul / adt.c < prev    next >
C/C++ Source or Header  |  2001-06-18  |  79KB  |  4,117 lines
  1. #ifdef _LILA_ENTE_
  2.  ############################################################################
  3.  ##                                                                        ##
  4.  ## This is ADT 2.6, a user friendly frontend for all Aminet FTP sites. It ##
  5.  ## can be compiled easily on any UNIX flavor and AmigaDOS. Under UNIX,    ##
  6.  ## compile it using the command                                           ##
  7.  ##                                                                        ##
  8.  ##   sh adt.c            (you may append flags, e.g. sh adt.c -DNO_FTP)   ##
  9.  ##                                                                        ##
  10.  ## or use simply type make (your current dir should be where adt.c is)    ##
  11.  ##                                                                        ##
  12.  ##         Urban Mueller <umueller@aminet.net>               ##
  13.  ##                                       ##
  14.  ## See adt.c.readme for further notes                                     ##
  15.  ##                                                                        ##
  16.  ############################################################################
  17.  
  18.  libs="-lcurses -ltermcap"
  19.  for i in /usr/lib/libncurses* ; do if [ -r $i ] ; then # Kludge for systems
  20.   libs="-lncurses" ; break                              # with bash as /bin/sh
  21.  fi ; done                                              # like NetBSD/Linux/Amiga
  22.  for i in /usr/lib/libsocket* ; do if [ -r $i ] ; then  # Kludge for systems
  23.   socket="$libs -lsocket -lnsl" ; break                 # with bash as /bin/sh
  24.  fi ; done                                              # like NetBSD/Linux/Amiga
  25.  
  26.  echo "Compiling... if all compiles OK, type ./adt to start"
  27.  echo ""
  28.  echo cc -O -s -o adt $* $0 $libs
  29.  exec cc -O -s -o adt $* $0 $libs
  30.  exit
  31. #endif
  32.  
  33.  
  34. #include <stdio.h>
  35.  
  36. #ifdef AMIGA
  37. # define getchr getch
  38. # define popen(x,y) stdout
  39. # define pclose(x)
  40. # define sleep(x)
  41. # define COPYCMD "copy"
  42. # define CURDIR "\"\""
  43. # define TEMPPATH "t:"
  44. # define _system(x) puts(x)
  45. #else
  46. # define getchr getchar
  47. # define COPYCMD "ln -s"
  48. # define CURDIR "."
  49. # define TEMPPATH "/tmp/"
  50. #endif
  51.  
  52. # define makedir(x,y) mkdir(x,y)
  53.  
  54.  
  55.  
  56. #ifdef NO_FTP
  57. # define NO_BUILTIN_FTP
  58. # define NO_EXTERNAL_FTP
  59. #endif
  60.  
  61. #ifdef NO_BUILTIN_FTP
  62. # ifdef NO_FIND_CLIENT
  63. #  define NO_TCP_UTILITY
  64. # endif
  65. #else /* !NO_BUILTIN_FTP */
  66. # define NO_EXTERNAL_FTP
  67. #endif
  68.  
  69. /*---------------------------------INCLUDES---------------------------------*/
  70. #define _INCLUDE_POSIX_SOURCE
  71.  
  72. # include <sys/types.h>
  73.  
  74. # ifdef DEBUG
  75. #  include <stdlib.h>
  76. #  include <unistd.h>
  77. #  include <string.h>
  78. #  include <sys/param.h>
  79. #  include <sys/stat.h>
  80. # endif
  81.  
  82. # ifndef NO_EXTERNAL_FTP
  83. #  include <sys/stat.h>
  84. # endif
  85.  
  86. # ifndef NO_TCP_UTILITY
  87. #  include <sys/file.h>
  88. #  include <stdio.h>
  89. #  include <netdb.h>
  90. #  include <sys/socket.h>
  91. #  include <netinet/in.h>
  92. #  include <arpa/inet.h>
  93. # endif
  94.  
  95. #ifndef NO_CURSES
  96. # include <curses.h>
  97. #endif
  98.  
  99. #include <signal.h>
  100. /*---------------------------------GLOBALS-----------------------------------*/
  101.  
  102. #define E_FILE 20
  103. #define E_DIR  10
  104. #define E_DESC 80
  105.  
  106. #define K_CTRL -'@'
  107.  
  108. struct adt_entry {
  109.   long time;
  110.   long size;
  111.   long readmesize;
  112.   short version;
  113.   char readmelen;
  114.   char tagged;
  115.   char osversion;
  116.   char status;
  117.   char file[E_FILE + 1];
  118.   char dir[E_DIR + 1];
  119.   char desc[E_DESC + 1];
  120. };
  121. #define ENTRY struct adt_entry
  122.  
  123. #define STATUS_LOCAL  0
  124. #define STATUS_REMOTE 1
  125.  
  126.  
  127. struct adt_list {
  128.   ENTRY **list;
  129.   char *(*disp) ();
  130.   int mem;
  131.   int num;
  132.   int offset;
  133.   int current;
  134.   char type;
  135.   char top;
  136.   char *sel;
  137.   char *sort;
  138.   char *cmds;
  139. };
  140. #define LIST struct adt_list
  141.  
  142.  
  143. struct adt_transfer {
  144.   char *name;
  145.   char *text;
  146.   int (*init) ();
  147. };
  148. #define TRANSFER struct adt_transfer
  149.  
  150. extern TRANSFER TransferTypes[];
  151.  
  152.  
  153. LIST AllFiles, VisibleFiles, Marked, Alternate;
  154. LIST *File = &AllFiles, *Vis = &VisibleFiles, *Mark = &Marked, *Alt = &Alternate;
  155.  
  156. int Dispmode;
  157. int Width = 80, Height = 25;
  158. int LastCall;
  159. int Time;
  160. char *NoFilesString = "No files available";
  161. char HomeDir[250];
  162. char UserName[50] = "user";
  163. char ConfigFile[200] = ".adtrc";
  164. char *FindDesc = "Performing local case insensitive substring search";
  165. char GotComplete, GotLocal, GotRecent, FilesAreRemote;
  166. char Flat, Readme, Silent, Path[250], Action;
  167. char InitialSetup;
  168. char Connected;
  169. char MaskSIGINT, GotSIGINT;
  170.  
  171. int (*disp_init) ();
  172. int (*disp_cleanup) ();
  173. int (*disp_choice) ();
  174. int (*disp_mainloop) ();
  175. int (*disp_report) ();
  176. int (*disp_status) ();
  177. int (*disp_confirm) ();
  178. int (*disp_more) ();
  179. int (*disp_getchar) ();
  180. int (*disp_refresh) ();
  181. int (*disp_clear) ();
  182. char *(*disp_inputstr) ();
  183.  
  184. int (*trans_options) ();
  185. int (*trans_connect) ();
  186. int (*trans_remopen) ();
  187. int (*trans_download) ();
  188. int (*trans_disconnect) ();
  189. int (*trans_close) ();
  190.  
  191. /*----------------------------main exit point--------------------------------*/
  192. int exit_adt(err)
  193.   char *err;
  194. {
  195.   if (disp_cleanup)
  196.     disp_cleanup();
  197.  
  198.   if (trans_close)
  199.     trans_close();
  200.  
  201.   if (err)
  202.     puts(err);
  203.  
  204.   exit(err ? 20 : 0);
  205.  
  206.   return 0;
  207. }
  208.  
  209. /*--------------------------quick entry allocator----------------------------*/
  210. #define CHUNKALLOC 100
  211.  
  212. struct EntryChunk {
  213.   struct EntryChunk *next;
  214.   ENTRY chunks[CHUNKALLOC];
  215. };
  216. #define CHUNK struct EntryChunk
  217.  
  218. int InCount;
  219. CHUNK *EntryChunk, *ChunkList;
  220.  
  221. char *salloc(len)
  222.   int len;
  223. {
  224.   char *t;
  225.  
  226.   if (!(t = (char *) malloc(len)))
  227.     exit_adt("out of memory\n");
  228.  
  229.   return t;
  230. }
  231.  
  232.  
  233. ENTRY *e_alloc()
  234. {
  235.   if (!InCount) {
  236.     InCount = CHUNKALLOC;
  237.     EntryChunk = (CHUNK *) salloc(sizeof(CHUNK));
  238.     EntryChunk->next = ChunkList;
  239.     ChunkList = EntryChunk;
  240.   }
  241.   return EntryChunk->chunks + --InCount;
  242. }
  243.  
  244. int e_add(l, e)
  245.   LIST *l;
  246.   ENTRY *e;
  247. {
  248.   ENTRY **oldlist;
  249.   int i;
  250.  
  251.   if (!l->mem) {
  252.     l->mem = 100;
  253.  
  254.     l->list = (ENTRY **) salloc(l->mem * sizeof(ENTRY *));
  255.   }
  256.   if (l->num == l->mem) {
  257.     oldlist = l->list;
  258.  
  259.     l->list = (ENTRY **) salloc(2 * l->mem * sizeof(ENTRY *));
  260.  
  261.     for (i = 0; i < l->num; i++)
  262.       l->list[i] = oldlist[i];
  263.  
  264.     l->mem *= 2;
  265.     free(oldlist);
  266.   }
  267.   l->list[l->num++] = e;
  268.   return 0;
  269. }
  270.  
  271. int l_reset(l)
  272.   LIST *l;
  273. {
  274.   if (l->list)
  275.     free(l->list);
  276.   l->list = 0;
  277.   l->mem = 0;
  278.   l->num = 0;
  279.   l->current = 0;
  280.   return 0;
  281. }
  282.  
  283. int l_store()
  284. {
  285.   int i;
  286.   ENTRY **e1, **e2;
  287.  
  288.   if (Alt->list)
  289.     free(Alt->list);
  290.  
  291.   if (Vis->mem)
  292.     Alt->list = (ENTRY **) salloc(Vis->mem * sizeof(ENTRY *));
  293.  
  294.   for (i = Vis->num - 1, e1 = Vis->list, e2 = Alt->list; i >= 0; i--)
  295.     *e2++ = *e1++;
  296.  
  297.   Alt->list = Vis->list;
  298.   Alt->num = Vis->num;
  299.   Alt->mem = Vis->mem;
  300.   Alt->offset = Vis->offset;
  301.   Alt->current = Vis->current;
  302.   Alt->sel = Vis->sel;
  303.   Alt->sort = Vis->sort;
  304.  
  305.   return 0;
  306. }
  307.  
  308. int e_freeall()
  309. {
  310.   CHUNK *c, *next;
  311.  
  312.   l_reset(Alt);
  313.   l_reset(Mark);
  314.   l_reset(Vis);
  315.   l_reset(File);
  316.  
  317.   for (c = ChunkList; c; c = next) {
  318.     next = c->next;
  319.     free(c);
  320.   }
  321.   ChunkList = 0;
  322.   InCount = 0;
  323.   GotComplete = GotLocal = GotRecent = 0;
  324.  
  325.   return 0;
  326. }
  327.  
  328. /*-------------------------string funcs for portability----------------------*/
  329. int mystrlen(s)
  330.   char *s;
  331. {
  332.   int n = 0;
  333.  
  334.   while (*s++)
  335.     n++;
  336.   return n;
  337. }
  338.  
  339. int mystrncpy(s1, s2, n)
  340.   char *s1, *s2;
  341.   int n;
  342. {
  343.   while (*s2 && n--)
  344.     *s1++ = *s2++;
  345.  
  346.   *s1++ = 0;
  347.  
  348.   return 0;
  349. }
  350.  
  351. char *mystrcpy(s1, s2)
  352.   char *s1, *s2;
  353. {
  354.   char *t = s1;
  355.  
  356.   while ((*s1++ = *s2++));
  357.  
  358.   return t;
  359. }
  360.  
  361. int mystrcmp(s1, s2)
  362.   char *s1, *s2;
  363. {
  364.   while (*s1 == *s2 && *s1)
  365.     s1++, s2++;
  366.  
  367.   return *s1 - *s2;
  368. }
  369.  
  370. #define LOWER(x) (x<='Z' && x>='A' ? x-'A'+'a' : x)
  371.  
  372. int mystricmp(s1, s2)
  373.   char *s1, *s2;
  374. {
  375.   while (LOWER(*s1) == LOWER(*s2) && *s1)
  376.     s1++, s2++;
  377.  
  378.   return LOWER(*s1) - LOWER(*s2);
  379. }
  380.  
  381. int mystrncmp(s1, s2, n)
  382.   char *s1, *s2;
  383.   int n;
  384. {
  385.   while (n && *s1 && *s1 == *s2)
  386.     s1++, s2++, n--;
  387.  
  388.   return n != 0 && *s1 - *s2;
  389. }
  390.  
  391. int mystrnicmp(s1, s2, n)
  392.   char *s1, *s2;
  393.   int n;
  394. {
  395.   while (n && *s1 && LOWER(*s1) == LOWER(*s2))
  396.     s1++, s2++, n--;
  397.  
  398.   return n != 0 && LOWER(*s1) - LOWER(*s2);
  399. }
  400.  
  401. char *myfgets(buf, len, file)
  402.   char *buf;
  403.   int len;
  404.   FILE *file;
  405. {
  406.   char *t, *r;
  407.  
  408.   if ((r = fgets(buf, len, file))) {
  409.     for (t = buf; *t && *t != '\n'; t++);
  410.  
  411.     *t = 0;
  412.   }
  413.   return r;
  414. }
  415.  
  416. char *mystristr(str1, str2)
  417.   char *str1, *str2;
  418. {
  419.   char c = LOWER(*str1), l = strlen(str1);
  420.  
  421.   for (;;) {
  422.     while (*str2 && LOWER(*str2) != c)
  423.       str2++;
  424.  
  425.     if (!*str2)
  426.       break;
  427.  
  428.     if (!mystrnicmp(str1, str2, l))
  429.       return str2;
  430.  
  431.     str2++;
  432.   }
  433.  
  434.   return 0;
  435. }
  436.  
  437. long myatoi(s)
  438.   char *s;
  439. {
  440.   long r = 0;
  441.  
  442.   while (*s && *s >= '0' && *s <= '9')
  443.     r = 10 * r + *s++ - '0';
  444.  
  445.   return r;
  446. }
  447.  
  448. char rdmbuf[200];
  449.  
  450. char *
  451. get_readme(e)
  452.   ENTRY *e;
  453. {
  454.   strcpy(rdmbuf,e->file);
  455.   strcpy(rdmbuf+strlen(rdmbuf)-e->readmelen, ".readme");
  456.   return rdmbuf;
  457. }
  458.  
  459. #define MYMIN(x,y) ((x)<(y) ? (x) : (y))
  460. #define MYMAX(x,y) ((x)>(y) ? (x) : (y))
  461.  
  462.  
  463. #include <pwd.h>
  464.  
  465. char *glob_path (buf)
  466.   char *buf;
  467. {
  468.   short bindex = 1;
  469.   struct passwd pw_info, *pw;
  470.   char buf2[300];
  471.  
  472.   if (buf[0] != '~')
  473.     return buf;
  474.  
  475.   pw_info.pw_dir = (char *) getenv("HOME");
  476.   if (buf[1] && buf[1] != '/') {
  477.     char username[128];
  478.  
  479.     while (buf[bindex] && buf[bindex] != '/')
  480.         ++bindex;
  481.     memcpy( username, buf+1, bindex-1);
  482.     username[bindex-1] = 0;
  483.  
  484.     if (pw = getpwnam(username))
  485.       pw_info.pw_dir = pw->pw_dir;
  486.     else
  487.       pw_info.pw_dir = "~";
  488.   }
  489.  
  490.   strcpy (buf2, pw_info.pw_dir);
  491.   strcat (buf2, buf + bindex);
  492.   strcpy (buf, buf2);
  493.  
  494.   return buf;
  495. }
  496.  
  497.  
  498. /*-----------------------------options and settings--------------------------*/
  499. char *Options[] = {
  500.   "method", "ftp",
  501.   "fspsite", "epix.rrze.uni-erlangen.de,21",
  502.   "fspsites", "epix.rrze.uni-erlangen.de,21",
  503.   "mailserv", "ftp.doc.ic.ac.uk",
  504.   "timeout", "30",
  505.   "nomotd", "0",
  506.   "amotd", "0",
  507.   "lmotd", "0",
  508.   "sites", "0",
  509.   "locaminet", "/public/pub/aminet",
  510.   "unpack", "",
  511.   "transfer", "",
  512.   "newest", "0",
  513.   "hide", "",
  514.   "printer", "",
  515.   "dlpath", "",
  516.   "compress", "1",
  517.   "send", "sz",
  518.   "silentdl", "0",
  519.   "readmedl", "0",
  520.   "flatdl", "1",
  521.   "ftpsite", "ftp.eunet.ch",
  522.   "ftpmaster", "ftp.wustl.edu",
  523.   "ftpsites","\
  524. USA,us.aminet.net,128.252.120.8,,,ALL@\
  525. Germany,de.aminet.net,131.234.25.10,,,ALL@\
  526. UK,uk.aminet.net,195.40.6.41,,,ALL@\
  527. Italy,it.aminet.net,192.132.34.17,,,ALL@\
  528. Sweden,se.aminet.net,194.71.11.20,,,ALL@\
  529. France,fr.aminet.net,194.158.99.21,,,ALL@\
  530. USA,us2.aminet.net,207.250.66.190,,,ALL@\
  531. Germany:Cologne,de1.aminet.net,212.44.160.12,,,ALL@\
  532. Germany:Berlin,de2.aminet.net,130.149.17.12,,de.aminet.net,35000@\
  533. Germany:Erlangen,de3.aminet.net,131.188.3.71,,de.aminet.net,35000@\
  534. Germany:Bremen,de5.aminet.net,134.102.228.2,,de.aminet.net,2500@\
  535. Germany:Stuttgart,de6.aminet.net,129.69.18.15,pub/systems/amiga/aminet,de.aminet.net,2000",
  536.   "findmethod", "0",
  537.   "findsite", "",
  538.   "findsites", "\
  539. USA,us.aminet.net,128.252.120.8,,@\
  540. Germany,de.aminet.net,131.234.25.10,,@\
  541. UK,uk.aminet.net,195.40.6.41,,@\
  542. Italy,it.aminet.net,192.132.34.17,,@\
  543. USA,us2.aminet.net,207.250.66.190,,",
  544.   0, 0
  545. };
  546.  
  547. #define OBUFLEN 8192
  548. char obuf[OBUFLEN];
  549.  
  550. char *option_get(name)
  551.   char *name;
  552. {
  553.   char **t;
  554.  
  555.   for (t = Options; t[0]; t += 2)
  556.     if (!mystrcmp(name, t[0]))
  557.       return t[1];
  558.  
  559.   return "";
  560. }
  561.  
  562. int option_getnum(name)
  563.   char *name;
  564. {
  565.   return myatoi(option_get(name));
  566. }
  567.  
  568. int option_set(name, val)
  569.   char *name, *val;
  570. {
  571.   char **t;
  572.  
  573.   for (t = Options; t[0]; t += 2)
  574.     if (!mystrcmp(name, t[0]))
  575.       mystrcpy((t[1] = salloc(strlen(val) + 1)), val);
  576.  
  577.   return 0;
  578. }
  579.  
  580. int option_setnum(name, val)
  581.   char *name;
  582.   int val;
  583. {
  584.   char buf[20];
  585.  
  586.   sprintf(buf, "%d", val);
  587.   option_set(name, buf);
  588.  
  589.   return 0;
  590. }
  591.  
  592. int option_loadfh(f)
  593.   FILE *f;
  594. {
  595.   char *t;
  596.  
  597.   fgets(obuf, OBUFLEN, f);
  598.   if (mystrncmp("#adtrc-v2", obuf, 9))
  599.     return 1;
  600.  
  601.   while (myfgets(obuf, OBUFLEN, f)) {
  602.     while (*obuf && obuf[strlen(obuf)-1]=='\\' && 
  603.            myfgets(obuf+strlen(obuf)-1, OBUFLEN-strlen(obuf)-1, f)) ;
  604.       
  605.     for (t = obuf; *t && *t != '='; t++);
  606.  
  607.     if (*t == '=') {
  608.       *t++ = 0;
  609.       option_set(obuf, t);
  610.     }
  611.   }
  612.  
  613.   return 0;
  614. }
  615.  
  616. int option_load(name)
  617.   char *name;
  618. {
  619.   FILE *f;
  620.   int r;
  621.  
  622.   if (!(f = fopen(name, "r")))
  623.     return 1;
  624.  
  625.   r = option_loadfh(f);
  626.  
  627.   fclose(f);
  628.  
  629.   return r;
  630. }
  631.  
  632. int option_save(name)
  633.   char *name;
  634. {
  635.   FILE *f;
  636.   char **t;
  637.  
  638.   if (!(f = fopen(name, "w")))
  639.     return 1;
  640.  
  641.   fprintf(f, "#adtrc-v2\n");
  642.  
  643.   for (t = Options; t[0]; t += 2)
  644.     fprintf(f, "%s=%s\n", t[0], t[1]);
  645.  
  646.   fclose(f);
  647.  
  648.   return 0;
  649. }
  650.  
  651. /*-----------------------------input file parser-----------------------------*/
  652. #define PBUFSIZE 400
  653. char parsebuf[PBUFSIZE], p_error, *p_ptr;
  654.  
  655. int reset_token()
  656. {
  657.   p_ptr = parsebuf;
  658.   p_error = 0;
  659.   return 0;
  660. }
  661.  
  662.  
  663. char *get_token()
  664. {
  665.   char *t, *s, *d;
  666.  
  667.   if (!p_ptr) {
  668.     p_error = 1;
  669.     return "";
  670.   }
  671.   for (t = s = d = p_ptr; *s && *s != '@'; s++) {
  672.     if (*s != '\r')
  673.       *d++ = *s;
  674.   }
  675.  
  676.   if (!*s)
  677.     p_ptr = 0;
  678.   else {
  679.     *s = 0;
  680.     p_ptr = s + 1;
  681.   }
  682.  
  683.   return t;
  684. }
  685.  
  686.  
  687. long p_atoi(s)
  688.   char *s;
  689. {
  690.   long r = 0;
  691.  
  692.   while (*s && *s >= '0' && *s <= '9')
  693.     r = 10 * r + *s++ - '0';
  694.  
  695.   if (*s)
  696.     p_error = 1;
  697.  
  698.   return r;
  699. }
  700.  
  701.  
  702. int read_adt_v2(fh)
  703.   FILE *fh;
  704. {
  705.   ENTRY *e;
  706.   char *t;
  707.  
  708.   do {
  709.     if (*parsebuf == '#')
  710.       if (!mystrncmp(parsebuf, "#endadt", 7))
  711.     break;
  712.       else
  713.     continue;
  714.  
  715.     e = e_alloc();
  716.  
  717.     reset_token();
  718.  
  719.     e->time = p_atoi(get_token());
  720.  
  721.     mystrncpy(e->dir, get_token(), E_DIR);
  722.  
  723.     mystrncpy(e->file, get_token(), E_FILE);
  724.  
  725.     e->size = p_atoi(get_token());
  726.  
  727.     e->readmelen = p_atoi(get_token());
  728.  
  729.     e->readmesize = p_atoi(get_token());
  730.  
  731.     e->version = -1;
  732.  
  733.     e->osversion = -1;
  734.  
  735.     e->status = *get_token()=='R' ? STATUS_REMOTE : STATUS_LOCAL;
  736.  
  737.     mystrncpy(e->desc, get_token(), E_DESC);
  738.  
  739.     for (t = e->desc; *t; t++)
  740.       if (*t == '\n')
  741.     *t = 0;
  742.  
  743.     e->tagged = 0;
  744.  
  745.     if (!(p_error))
  746.       e_add(File, e);
  747.   } while (fgets(parsebuf, PBUFSIZE, fh));
  748.  
  749.   return 0;
  750. }
  751.  
  752. /*----------------------------------utility----------------------------------*/
  753. long newesttime()
  754. {
  755.   int i;
  756.   long newest = 0;
  757.  
  758.   for (i = 0; i < File->num; i++)
  759.     if ((File->list[i]->time < time(NULL)) && (File->list[i]->time > newest))
  760.       newest = File->list[i]->time;
  761.  
  762.   return newest;
  763. }
  764.  
  765. char *temp_name(buf, sub)
  766.   char *buf;
  767.   char *sub;
  768. {
  769.   sprintf(buf, "%s%s_%s", TEMPPATH, UserName, sub);
  770.   return buf;
  771. }
  772.  
  773. struct temp_file {
  774.   FILE *fh;
  775.   char name[100];
  776.   int (*cleanup) ();
  777. };
  778. #define TEMPFILE struct temp_file
  779.  
  780. int temp_delete(tfh)
  781.   TEMPFILE *tfh;
  782. {
  783.   if (*tfh->name)
  784.     unlink(tfh->name);
  785.   return 0;
  786. }
  787.  
  788. int temp_dummy()
  789. {
  790.   return 0;
  791. }
  792.  
  793. char tclose(tfh)
  794.   TEMPFILE *tfh;
  795. {
  796.   fclose(tfh->fh);
  797.   if (tfh->cleanup)
  798.     (*tfh->cleanup) (tfh);
  799.   return 0;
  800. }
  801.  
  802. int exists(name)
  803.   char *name;
  804. {
  805.   FILE *f;
  806.  
  807.   if ((f = fopen(name, "r")))
  808.     fclose(f);
  809.   return f != 0;
  810. }
  811.  
  812. char *tackon(buf, add)
  813.   char *buf, *add;
  814. {
  815.   if (*buf && (buf[strlen(buf) - 1] != '/' && buf[strlen(buf) - 1] != ':'))
  816.     strcat(buf, "/");
  817.   strcat(buf, add);
  818.  
  819.   return buf;
  820. }
  821.  
  822. char *basename(s)
  823.   char *s;
  824. {
  825.   char *b = s;
  826.  
  827.   for (; *s; s++)
  828.     if (*s == '/' || *s == ':')
  829.       b = s + 1;
  830.  
  831.   return b;
  832. }
  833.  
  834.  
  835. #define NUMLINES 500
  836. char *Lines[NUMLINES + 1];
  837. char LineBuf[200];
  838.  
  839. char **read_file(f, title)
  840.   FILE *f;
  841.   char *title;
  842. {
  843.   int i=0;
  844.   char *t;
  845.  
  846.   if (title) {
  847.     Lines[i]= (char *) salloc( mystrlen(title) + 1 );
  848.     mystrcpy (Lines[i++], title);
  849.   }
  850.  
  851.   for ( ; i < NUMLINES; i++) {
  852.     if (!(fgets(LineBuf, 200, f)))
  853.       break;
  854.     for (t = LineBuf; *t && *t != '\n'; t++);
  855.     *t = 0;
  856.     Lines[i] = (char *) salloc(mystrlen(LineBuf) + 1);
  857.     mystrcpy(Lines[i], LineBuf);
  858.   }
  859.   Lines[i] = 0;
  860.   return Lines;
  861. }
  862.  
  863. int free_file(strings)
  864.   char **strings;
  865. {
  866.   while (*strings)
  867.     free(*strings++);
  868.   return 0;
  869. }
  870.  
  871. /*-----------------------------------sorting---------------------------------*/
  872.  
  873. int cmp_age(e1, e2)
  874.   ENTRY *e1, *e2;
  875. {
  876.   return e2->time - e1->time;
  877. }
  878.  
  879. int cmp_dir(e1, e2)
  880.   ENTRY *e1, *e2;
  881. {
  882.   int t;
  883.  
  884.   return (t = mystricmp(e1->dir, e2->dir)) ? t : mystricmp(e1->file, e2->file);
  885. }
  886.  
  887. int cmp_size(e1, e2)
  888.   ENTRY *e1, *e2;
  889. {
  890.   return e2->size - e1->size;
  891. }
  892.  
  893. int cmp_name(e1, e2)
  894.   ENTRY *e1, *e2;
  895. {
  896.   return mystricmp(e1->file, e2->file);
  897. }
  898.  
  899. int cmp_rage(e2, e1)
  900.   ENTRY *e1, *e2;
  901. {
  902.   return e2->time - e1->time;
  903. }
  904.  
  905. int cmp_rdir(e2, e1)
  906.   ENTRY *e1, *e2;
  907. {
  908.   int t;
  909.  
  910.   return (t = mystricmp(e1->dir, e2->dir)) ? t : mystricmp(e1->file, e2->file);
  911. }
  912.  
  913. int cmp_rsize(e2, e1)
  914.   ENTRY *e1, *e2;
  915. {
  916.   return e2->size - e1->size;
  917. }
  918.  
  919. int cmp_rname(e2, e1)
  920.   ENTRY *e1, *e2;
  921. {
  922.   return mystricmp(e1->file, e2->file);
  923. }
  924.  
  925. struct sort_mode {
  926.   int (*cmp) ();
  927.   char *desc;
  928. };
  929. #define SORT struct sort_mode
  930.  
  931. SORT
  932. sort_age   = { cmp_age,   "by age (newest first)" },
  933. sort_dir   = { cmp_dir,   "by dir" },
  934. sort_size  = { cmp_size,  "by size" },
  935. sort_name  = { cmp_name,  "by name" },
  936. sort_rage  = { cmp_rage,  "by age (oldest first)" },
  937. sort_rdir  = { cmp_rdir,  "reverse by dir" },
  938. sort_rsize = { cmp_rsize, "reverse by size" },
  939. sort_rname = { cmp_rname, "reverse by name" };
  940.  
  941. int quick_sort(av, n, cmp)
  942.   ENTRY **av;
  943.   int n, (*cmp) ();
  944. {
  945.   ENTRY **i, **j, *x, *t;
  946.  
  947.   if (n > 0) {
  948.     i = av;
  949.     j = av + n - 1;
  950.     x = av[n >> 1];
  951.     do {
  952.       while (cmp(*i, x) < 0)
  953.     i++;
  954.       while (cmp(x, *j) < 0)
  955.     --j;
  956.       if (i <= j)
  957.     t = *i, *i = *j, *j = t, i++, j--;
  958.  
  959.     } while (i <= j);
  960.  
  961.     if (j + 1 - av < av + n - i) {
  962.       quick_sort(av, j + 1 - av, cmp);
  963.       quick_sort(i, av + n - i, cmp);
  964.     } else {
  965.       quick_sort(i, av + n - i, cmp);
  966.       quick_sort(av, j + 1 - av, cmp);
  967.     }
  968.   }
  969.   return 0;
  970. }
  971.  
  972. int sort_list(list, sort)
  973.   LIST *list;
  974.   SORT *sort;
  975. {
  976.  
  977.   quick_sort(list->list, list->num, sort->cmp);
  978.  
  979.   list->current = list->offset = 0;
  980.  
  981.   Vis->sort = sort->desc;
  982.  
  983.   return 0;
  984. }
  985.  
  986.  
  987. /*---------------------------------visibility--------------------------------*/
  988.  
  989. int allvisible()
  990. {
  991.   int i;
  992.  
  993.   l_store();
  994.   l_reset(Vis);
  995.  
  996.   Vis->sel = "All files";
  997.   for (i = 0; i < File->num; i++)
  998.     e_add(Vis, File->list[i]);
  999.  
  1000.   sort_list(Vis, &sort_dir);
  1001.  
  1002.   return 0;
  1003. }
  1004.  
  1005. int invisible()
  1006. {
  1007.   ENTRY **entr = Vis->list;
  1008.   char buf[200], *b, *h = option_get("hide");
  1009.   int i, j;
  1010.  
  1011.   while (*h) {
  1012.     b = buf;
  1013.     while (*h && *h != ' ' && *h != ',')
  1014.       *b++ = *h++;
  1015.     *b = 0;
  1016.  
  1017.     while (*h && (*h == ' ' || *h == ','))
  1018.       h++;
  1019.  
  1020.     if (!*buf)
  1021.       continue;
  1022.  
  1023.     for (i = j = 0; i < Vis->num; i++)
  1024.       if (mystrncmp(buf, entr[i]->dir, b - buf))
  1025.     entr[j++] = entr[i];
  1026.     Vis->num = j;
  1027.   }
  1028.   Vis->current = 0;
  1029.  
  1030.   return 0;
  1031. }
  1032.  
  1033. int newvisible()
  1034. {
  1035.   ENTRY **entr = File->list;
  1036.   int i;
  1037.  
  1038.   l_store();
  1039.   l_reset(Vis);
  1040.   Vis->sel = "New files";
  1041.  
  1042.   for (i = 0; i < File->num; i++)
  1043.     if (entr[i]->time > LastCall)
  1044.       e_add(Vis, entr[i]);
  1045.  
  1046.   invisible();
  1047.  
  1048.   if (!Vis->num && File->num)
  1049.     NoFilesString = "No new files since your last call, use v)iew k)nown to see older ones";
  1050.  
  1051.   sort_list(Vis, &sort_dir);
  1052.  
  1053.   return 0;
  1054. }
  1055.  
  1056. int dirvisible(dir)
  1057.   char *dir;
  1058. {
  1059.   ENTRY **entr = File->list;
  1060.   int i, l = strlen(dir);
  1061.  
  1062.   l_store();
  1063.   l_reset(Vis);
  1064.   Vis->sel = "Selected dir";
  1065.  
  1066.   for (i = 0; i < File->num; i++)
  1067.     if (!mystrncmp(entr[i]->dir, dir, l))
  1068.       e_add(Vis, entr[i]);
  1069.  
  1070.   if (!Vis->num && File->num)
  1071.     NoFilesString = "No files matching that directory specification";
  1072.  
  1073.   sort_list(Vis, &sort_dir);
  1074.  
  1075.   return 0;
  1076. }
  1077.  
  1078. int findstr(str)
  1079.   char *str;
  1080. {
  1081.   ENTRY **entr = File->list;
  1082.   int i;
  1083.  
  1084.   if (!*str)
  1085.     return 0;
  1086.  
  1087.   l_store();
  1088.   l_reset(Vis);
  1089.  
  1090.   for (i = 0; i < File->num; i++)
  1091.     if (mystristr(str, entr[i]->desc) || mystristr(str, entr[i]->file))
  1092.       e_add(Vis, entr[i]);
  1093.  
  1094.   Vis->sel = "Matching files";
  1095.  
  1096.   sort_list(Vis, &sort_dir);
  1097.  
  1098.   if (!Vis->num && File->num)
  1099.     NoFilesString = "No files matching substring, use f)ind to search again";
  1100.  
  1101.   return 0;
  1102. }
  1103.  
  1104.  
  1105. int strlimit(str)
  1106.   char *str;
  1107. {
  1108.   ENTRY **entr = Vis->list;
  1109.   int i, j;
  1110.  
  1111.   if (!*str)
  1112.     return 0;
  1113.  
  1114.   l_store();
  1115.   Vis->sel = "Matching files";
  1116.  
  1117.   for (i = j = 0; i < Vis->num; i++)
  1118.     if (mystristr(str, entr[i]->desc) || mystristr(str, entr[i]->file))
  1119.       entr[j++] = entr[i];
  1120.  
  1121.   Vis->num = j;
  1122.   Vis->current = 0;
  1123.  
  1124.   if (!Vis->num && File->num)
  1125.     NoFilesString = "No files matching substring, use v)iew to see more";
  1126.  
  1127.   return 0;
  1128. }
  1129.  
  1130. int togglevisible()
  1131. {
  1132.   LIST *l;
  1133.  
  1134.   l = Vis;
  1135.   Vis = Alt;
  1136.   Alt = l;
  1137.   return 0;
  1138. }
  1139.  
  1140.  
  1141. int markedvisible()
  1142. {
  1143.   ENTRY **entr;
  1144.   int i, j=0;
  1145.  
  1146.   l_store();
  1147.   Vis->sel = "Marked files";
  1148.  
  1149.   entr = Vis->list;
  1150.   for (i = 0; i < Vis->num; i++)
  1151.     if (entr[i]->tagged)
  1152.       entr[j++]=entr[i];
  1153.  
  1154.   if (!(Vis->num=j) && File->num)
  1155.     NoFilesString = "No tagged files";
  1156.  
  1157.   return 0;
  1158. }
  1159.  
  1160. int markedextract()
  1161. {
  1162.   ENTRY **entr = Vis->list;
  1163.   int i;
  1164.  
  1165.   l_reset(Mark);
  1166.  
  1167.   for (i = 0; i < Vis->num; i++)
  1168.     if (entr[i]->tagged)
  1169.       e_add(Mark, entr[i]);
  1170.  
  1171.   if (!Mark->num)
  1172.     e_add(Mark, entr[Vis->current]);
  1173.  
  1174.   return 0;
  1175. }
  1176.  
  1177.  
  1178.  
  1179. /*-----------------------------string formatting-----------------------------*/
  1180. char *ShowFiles = "New files by dir";
  1181. int CurSelected, Window;
  1182.  
  1183. char *str_topline(buf, len, list)
  1184.   LIST *list;
  1185.   int len;
  1186.   char *buf;
  1187. {
  1188.   int i;
  1189.   char buf2[40];
  1190.  
  1191.   for (i = 0; i < len; i++)
  1192.     buf[i] = ' ';
  1193.   buf[i] = 0;
  1194.  
  1195.   sprintf(buf2, "Showing: %d/%d", list->num, File->num);
  1196.   strcpy(buf, buf2);
  1197.   buf[strlen(buf)] = ' ';
  1198.  
  1199.   sprintf(buf2, "%s %s", Vis->sel, Vis->sort);
  1200.   strcpy(buf + len / 2 - strlen(buf2) / 2, buf2);
  1201.   buf[strlen(buf)] = ' ';
  1202.  
  1203.   sprintf(buf2, "Page: %d/%d", 1 + list->offset / Window, 1 + list->num / Window);
  1204.   strcpy(buf + len - strlen(buf2), buf2);
  1205.  
  1206.   return buf;
  1207. }
  1208.  
  1209.  
  1210. char sizestr[10];
  1211.  
  1212. char *str_ksize(size)
  1213.   long size;
  1214. {
  1215.   if (size == -1) {
  1216.     sprintf(sizestr, "?");
  1217.   } else {
  1218.     size = (size + 512) / 1024;
  1219.     if (size <= 999)
  1220.       sprintf(sizestr, "%dK", size);
  1221.     else if ((size + 512) / 1024 < 10)
  1222.       sprintf(sizestr, "%d.%dM", size / 1024, (size * 10 + 512) / 1024 % 10);
  1223.     else
  1224.       sprintf(sizestr, "%dM", (size + 512) / 1024);
  1225.   }
  1226.   return sizestr;
  1227. }
  1228.  
  1229. int
  1230. weekage(etime)
  1231.   long etime;
  1232. {
  1233.   int res=(Time-etime)/86400/7;
  1234.   if(res<0) res=0;
  1235.   if(res>999) res=999;
  1236.   return res;
  1237. }
  1238.  
  1239.  
  1240. char *str_titles(buf)
  1241.   char *buf;
  1242. {
  1243.   switch (Dispmode) {
  1244.   case 0:
  1245.     strcpy(buf, " File               Dir        Age Size Description\n");
  1246.     break;
  1247.   }
  1248.   return buf;
  1249. }
  1250.  
  1251.  
  1252.  
  1253. char *str_entry(e, n, max, buf, len)
  1254.   ENTRY **e;
  1255.   int n, max, len;
  1256.   char *buf;
  1257. {
  1258.   int i;
  1259.  
  1260.   if (n >= max) {
  1261.     for (i = 0; i < len; i++)
  1262.       buf[i] = ' ';
  1263.     buf[i] = 0;
  1264.     return buf;
  1265.   }
  1266.  
  1267.   switch (Dispmode) {
  1268.   case 0:
  1269.     sprintf(buf, "%c%-18.18s %-10.10s %3d %4.4s %-80.80s",
  1270.         e[n]->tagged ? '+' : ' ',
  1271.         e[n]->file,
  1272.         e[n]->dir,
  1273.             weekage(e[n]->time),
  1274.         str_ksize(e[n]->size),
  1275.         /* e[n]->readmesize > 100 ? '+' : ' ', */
  1276.         e[n]->desc);
  1277.     buf[len - 1] = 0;
  1278.     break;
  1279.   }
  1280.  
  1281.  
  1282.   return buf;
  1283. }
  1284.  
  1285.  
  1286. char sitebuf[120];
  1287.  
  1288. int str_sitesplit(s, parts)
  1289.   char *s, **parts;
  1290. {
  1291.   char *d = sitebuf;
  1292.   int i;
  1293.  
  1294.   for (i = 0; i < 5; i++) {
  1295.     parts[i] = d;
  1296.     while (*s && *s != ',' && *s != '@')
  1297.       *d++ = *s++;
  1298.     if (*s == ',')
  1299.       s++;
  1300.     *d++ = 0;
  1301.   }
  1302.  
  1303.   return 0;
  1304. }
  1305.  
  1306. char *str_showline(entries, n, max, buf)
  1307.   char *entries, *buf;
  1308.   int n, max;
  1309. {
  1310.   char *s = entries;
  1311.   char *parts[10];
  1312.  
  1313.   if (n >= max)
  1314.     return "";
  1315.  
  1316.   for (; n > 0; n--)
  1317.     while (*s++ != '@');
  1318.  
  1319.   str_sitesplit(s, parts);
  1320.   sprintf(buf, "%-18.18s %24.24s", parts[0], parts[1]);
  1321.  
  1322.   return buf;
  1323. }
  1324.  
  1325. char centerbuf[250];
  1326.  
  1327. char *str_center(s, len)
  1328.   char *s;
  1329.   int len;
  1330. {
  1331.   int i = (len - strlen(s)) / 2 - 1;
  1332.  
  1333.   strcpy(centerbuf + i, s);
  1334.   while (i > 0)
  1335.     centerbuf[--i] = ' ';
  1336.  
  1337.   return centerbuf;
  1338. }
  1339.  
  1340.  
  1341. int str_longest(arr)
  1342.   char **arr;
  1343. {
  1344.   int l = 0;
  1345.  
  1346.   for (; *arr; arr++)
  1347.     if (strlen(*arr) > l)
  1348.       l = strlen(*arr);
  1349.   return l;
  1350. }
  1351.  
  1352. int str_shift(len, width)
  1353.   int len, width;
  1354. {
  1355.   return len < width ? (width - len) / 2 : 0;
  1356. }
  1357.  
  1358. LIST sitelist = {0, str_showline, 0, 0, 0, 0, 1, 0};
  1359.  
  1360. int setup_sitelist(sitesname, sitename, help)
  1361.   char *sitesname, *sitename, **help;
  1362. {
  1363.   int t, n = 1;
  1364.   char *sites = option_get(sitesname), *s;
  1365.   char buf[100], *d = buf;
  1366.  
  1367.   mystrcpy(buf, option_get("ftpsite"));
  1368.  
  1369.   for (s = sites; *s; ) {
  1370.     if (*s++ == '@') {
  1371.       if (*buf && !mystrncmp(s, buf, strlen(buf)))
  1372.     sitelist.current = n;
  1373.       n++;
  1374.     }
  1375.   }
  1376.  
  1377.   sitelist.list = (ENTRY **) sites;
  1378.   sitelist.num = n;
  1379.  
  1380.   if ((t = disp_choice(help, &sitelist)) < 0)
  1381.     return 1;
  1382.  
  1383.   for (s = sites; t > 0; t--)
  1384.     while (*s++ != '@');
  1385.  
  1386.   while (*s && *s != '@')
  1387.     *d++ = *s++;
  1388.   *d++ = 0;
  1389.  
  1390.   option_set(sitename, buf);
  1391.  
  1392.   return 0;
  1393. }
  1394.  
  1395. /*-----------------------------command key input-----------------------------*/
  1396. #define K_UP     300
  1397. #define K_DOWN   301
  1398. #define K_RIGHT  302
  1399. #define K_LEFT   303
  1400.  
  1401. int inp_getchr()
  1402. {
  1403.   int c;
  1404.  
  1405.   if ((c = disp_getchar()) != 27 && c != 155)
  1406.     return c;
  1407.  
  1408.   if (c == 27 && (c = disp_getchar()) != '[')
  1409.     return c;
  1410.  
  1411.   switch (c = disp_getchar()) {
  1412.   case 'A':
  1413.     return K_UP;
  1414.   case 'B':
  1415.     return K_DOWN;
  1416.   case 'C':
  1417.     return K_RIGHT;
  1418.   case 'D':
  1419.     return K_LEFT;
  1420.   }
  1421.   return 0;
  1422. }
  1423.  
  1424. /*-------------------------------initial setup-------------------------------*/
  1425. char *setup_showline(entries, n, max)
  1426.   TRANSFER entries[];
  1427.   int n, max;
  1428. {
  1429.   return n < max ? entries[n].text : "";
  1430. }
  1431.  
  1432. LIST setuplist = {(ENTRY **) TransferTypes, setup_showline, 0, 0, 0, 0, 1, 0};
  1433.  
  1434. char *FirstSetupHelp[] = {
  1435.   "ADT initial setup",
  1436.   "It seems that you've never used ADT before. ADT lets you access files",
  1437.   "stored in an Aminet database using various methods (FTP, FSP, mail",
  1438.   "servers and local files). The version you have here may not support all",
  1439.   "of those though. Select your transfer method now.",
  1440.   "NOTE: After setup, you can press 'h' or '?' in most places to get help.",0
  1441. };
  1442.  
  1443. char *SetupHelp[] = {
  1444.   "ADT transfer method setup",
  1445.   "Please select the way ADT should use to access files on Aminet", 0
  1446. };
  1447.  
  1448. int setup_method()
  1449. {
  1450.   TRANSFER *type;
  1451.   int n;
  1452.  
  1453.   setuplist.current = 0;
  1454.   setuplist.num = 0;
  1455.   for (type = TransferTypes; type->text; type++) {
  1456.     if (!mystrcmp(type->name, option_get("method")))
  1457.       setuplist.current = setuplist.num;
  1458.     setuplist.num++;
  1459.   }
  1460.  
  1461.   n = disp_choice(InitialSetup ? FirstSetupHelp : SetupHelp, &setuplist);
  1462.  
  1463.   if (n < 0) {
  1464.     if (InitialSetup)
  1465.       exit_adt("Cannot start up without a transfer method. Goodbye.");
  1466.   } else {
  1467.     if (trans_close)
  1468.       trans_close();
  1469.     option_set("method", TransferTypes[n].name);
  1470.     TransferTypes[n].init();
  1471.     trans_options();
  1472.   }
  1473.  
  1474.   return 0;
  1475. }
  1476.  
  1477.  
  1478. char *DefaultsHelp[] = {
  1479.   "ADT initial setup",
  1480.   "It seems that you've never used ADT before. ADT lets you access files",
  1481.   "stored in ADT databases using various methods (FTP, FSP, mailservers,",
  1482.   "local files. Your sysadmin has selected a default transfer method and",
  1483.   "default site for you. They will be saved as your local configuration",
  1484.   "when you q)uit ADT. You may change them anytime using the o)ptions",
  1485.   "command.",
  1486.   "Press any key to enter ADT", 0
  1487. };
  1488.  
  1489. int setup_defaults()
  1490. {
  1491.   option_set("newest", "0");
  1492.  
  1493.   return 0;
  1494. }
  1495.  
  1496.  
  1497.  
  1498. char *enum_showline(entries, n, max, buf)
  1499.   char **entries, *buf;
  1500.   int n, max;
  1501. {
  1502.   if (n >= max)
  1503.     return "";
  1504.   else
  1505.     return entries[n];
  1506. }
  1507.  
  1508.  
  1509. LIST enumlist = {0, enum_showline, 0, 0, 0, 0, 1, 0};
  1510.  
  1511. int setup_enumed(help, choices, var)
  1512.   char **help, **choices, *var;
  1513. {
  1514.   int n, lines, t;
  1515.  
  1516.   for (lines = 0; choices[lines]; lines++);
  1517.  
  1518.   n = option_getnum(var);
  1519.   if (n < 0)
  1520.     n = 0;
  1521.   if (n >= lines)
  1522.     n = lines - 1;
  1523.  
  1524.   enumlist.list = (ENTRY **) choices;
  1525.   enumlist.num = lines;
  1526.   enumlist.current = n;
  1527.  
  1528.   t = disp_choice(help, &enumlist);
  1529.  
  1530.   if (t >= 0)
  1531.     option_setnum(var, t);
  1532.  
  1533.   return t;
  1534. }
  1535.  
  1536.  
  1537. char *FindMethodHelp[] = {
  1538.   "Find method",
  1539.   "Please choose the method to use for finding files on Aminet. You can use",
  1540.   "an archie-like find server if you have Internet access. If you don't,",
  1541.   "or if you want to make several queries at once, or if your connection to",
  1542.   "Aminet is very fast (e.g. local files), it may be advisable for ADT to",
  1543.   "download the complete file list and do the queries locally. If you only",
  1544.   "want to search what's available at your site, pick the third option.", 0
  1545. }, *FindMethodList[] = {
  1546.   "Remote server search of complete Aminet index",
  1547.   "Local search of current Aminet site",
  1548.   "Local search of complete Aminet index", 0
  1549. };
  1550.  
  1551. char *FindSiteHelp[] = {
  1552.   "Find site selection",
  1553.   "Which server should be used for finding stuff? All servers have a complete",
  1554.   "Aminet index and can thus be used for searches on any of the complete sites", 0
  1555. };
  1556.  
  1557. int setup_findmethod()
  1558. {
  1559.   if (setup_enumed(FindMethodHelp, FindMethodList, "findmethod") == 0)
  1560.     setup_sitelist("findsites", "findsite", FindSiteHelp);
  1561.  
  1562.   option_save(ConfigFile);
  1563.  
  1564.   return 0;
  1565. }
  1566.  
  1567. /* ==============================GENERIC FILE TRANSFER======================== */
  1568. int trans_init()
  1569. {
  1570.   TRANSFER *t = TransferTypes;
  1571.   char *s = option_get("method");
  1572.  
  1573.   while (t->name && mystrcmp(t->name, s))
  1574.     t++;
  1575.  
  1576.   if (!t->name)
  1577.     return 1;
  1578.  
  1579.   t->init();
  1580.  
  1581.   return 0;
  1582. }
  1583.  
  1584.  
  1585. /* ==============================LOCAL FILE PACKAGE=========================== */
  1586. int CdRom;
  1587.  
  1588. int local_connect(progress)
  1589.   int (*progress) ();
  1590. {
  1591.   Connected = 1;
  1592.   return 0;
  1593. }
  1594.  
  1595. int local_remopen(tfh, remote)
  1596.   TEMPFILE *tfh;
  1597.   char *remote;
  1598. {
  1599.   strcpy(tfh->name, option_get("locaminet"));
  1600.   tackon(tfh->name, remote);
  1601.  
  1602.   tfh->cleanup = temp_dummy;
  1603.   tfh->fh = fopen(tfh->name, "r");
  1604.  
  1605.   NoFilesString = "Could not access remote file, use o)ptions s)ite to change path";
  1606.  
  1607.   return 0;
  1608. }
  1609.  
  1610. int local_download(remote, locdir, size, progress)
  1611.   char *remote, *locdir;
  1612.   long size;
  1613.   int (*progress) ();
  1614. {
  1615.   char buf[150], buf2[100];
  1616.  
  1617.   sprintf(buf, "Copying %s", remote);
  1618.   progress(buf);
  1619.  
  1620.   strcpy(buf2, option_get("locaminet"));
  1621.   tackon(buf2, remote);
  1622.  
  1623.   sprintf(buf, "%s %s %s", COPYCMD, buf2, locdir);
  1624.   system(buf);
  1625.  
  1626.   sprintf(buf, "Copied %s", remote);
  1627.   progress(buf);
  1628.  
  1629.   return 0;
  1630. }
  1631.  
  1632. int local_disconnect()
  1633. {
  1634.   Connected = 0;
  1635.   return 0;
  1636. }
  1637.  
  1638. char *LocAminetHelp[] = {
  1639.   "Use a local Aminet database",
  1640.   "Please enter the absolute path to the Aminet files. You must not use the",
  1641.   "tilde ~ sign. Enter the path up to the aminet dir, eg. /ftp/pub/aminet .", 0
  1642. };
  1643.  
  1644. char *CdRomHelp[] = {
  1645.   "Please enter the absolute path to your Aminet CDROM (or any other non",
  1646.   "updated Aminet file collection), including the Aminet/ end of the path,",
  1647.   "e.g. CD0:Aminet . Note that you need at least Aminet CD 2.", 0
  1648. };
  1649.  
  1650.  
  1651.  
  1652.  
  1653. int local_options()
  1654. {
  1655.   char buf[100];
  1656.  
  1657.   if (InitialSetup)
  1658.     option_set("findmethod", "1");
  1659.  
  1660.  
  1661.   mystrcpy(buf, option_get("locaminet"));
  1662.   disp_inputstr(buf, CdRom ? CdRomHelp : LocAminetHelp);
  1663.   option_set("locaminet", buf);
  1664.  
  1665.   return 0;
  1666. }
  1667.  
  1668. int local_close()
  1669. {
  1670.   return 0;
  1671. }
  1672.  
  1673.  
  1674. int local_init()
  1675. {
  1676.   trans_options = local_options;
  1677.   trans_connect = local_connect;
  1678.   trans_remopen = local_remopen;
  1679.   trans_download = local_download;
  1680.   trans_disconnect = local_disconnect;
  1681.   trans_close = local_close;
  1682.  
  1683.   if ( !strcmp ( option_get("method"), "cdrom"))
  1684.     CdRom=1;
  1685.  
  1686.   return 0;
  1687. }
  1688.  
  1689. /* ==============================EXTERNAL FTP PACKAGE========================= */
  1690. #ifndef NO_EXTERNAL_FTP
  1691.  
  1692. FILE *xFtp;
  1693.  
  1694. int xftp_connect(progress)
  1695.   int (*progress) ();
  1696. {
  1697.   char *site = option_get("ftpsite");
  1698.   char *parts[10],passwd[32];
  1699.   char buf[100];
  1700.  
  1701.   if (Connected)
  1702.     return 0;
  1703.   Connected = 1;
  1704.  
  1705.   str_sitesplit(site, parts);
  1706.  
  1707.   sprintf(buf, "Connecting to %s", parts[1]);
  1708.   progress(buf);
  1709.  
  1710.   sprintf(passwd,"user ftp %s@\n",getlogin());
  1711.  
  1712.   fprintf(xFtp, "open %s\n", parts[1]);
  1713.   fprintf(xFtp, passwd);
  1714.   fprintf(xFtp, "cd pub/aminet\n");
  1715.   fprintf(xFtp, "bin\n");
  1716.  
  1717.   return 0;
  1718. }
  1719.  
  1720. static long xftp_filesize(name)
  1721.   char *name;
  1722. {
  1723.   struct stat st;
  1724.  
  1725.   return stat(name, &st) ? -1 : st.st_size;
  1726. }
  1727.  
  1728. static int xftp_waitfile(local, size, progress, maxwait, pad, name)
  1729.   char *local;
  1730.   long size;
  1731.   int (*progress) (), maxwait;
  1732.   char *pad, *name;
  1733. {
  1734.   int got, prevgot = -1, timeout = 0;
  1735.   char buf[100];
  1736.  
  1737.   sprintf(buf, "Initiating download of %s", size < 0 ? name : local);
  1738.   progress(buf);
  1739.  
  1740.   while ((got = xftp_filesize(local)) < size || size < 0) {
  1741.  
  1742.     if (got != prevgot)
  1743.       timeout = 0;
  1744.  
  1745.     if (timeout > maxwait)
  1746.       return 1;
  1747.  
  1748.     if (++timeout > 10) {
  1749.       sprintf(buf, "Timeout %d on file %s", maxwait - timeout, local);
  1750.       progress(buf);
  1751.     }
  1752.     prevgot = got;
  1753.     if (got >= 0) {
  1754.       if (size >= 0)
  1755.     sprintf(buf, "Downloading %s, %3dK/%3dK",
  1756.         local, (got + 512) / 1024, (size + 512) / 1024);
  1757.       else
  1758.     sprintf(buf, "Downloading %s, %3dK", name, (got + 512) / 1024);
  1759.  
  1760.       progress(buf);
  1761.     }
  1762.     if (size < 0 && exists(pad))
  1763.       return 0;
  1764.  
  1765.     sleep(1);
  1766.   }
  1767.  
  1768.   return size >= 0 ? got < size : 0;
  1769. }
  1770.  
  1771. int xftp_remopen(tfh, remote, pack, progress)
  1772.   TEMPFILE *tfh;
  1773.   char *remote, *pack;
  1774.   int (*progress) ();
  1775. {
  1776.   char pad[100], buf[100], remname[100];
  1777.  
  1778.   sprintf(remname, "%s%s", remote, pack);
  1779.  
  1780.   temp_name(pad, "PAD");
  1781.   temp_name(tfh->name, "REMOTE");
  1782.   strcat(tfh->name, pack);
  1783.   tfh->cleanup = temp_delete;
  1784.  
  1785.   unlink(pad);
  1786.   unlink(tfh->name);
  1787.  
  1788.   fprintf(xFtp, "get %s %s\n", remname, tfh->name);
  1789.   fprintf(xFtp, "get info/adt/pad %s\n", pad);
  1790.   fflush(xFtp);
  1791.  
  1792.   xftp_waitfile(tfh->name, -1, progress, 30, pad, basename(remname));
  1793.  
  1794.   unlink(pad);
  1795.  
  1796.   if (*pack) {
  1797.     temp_name(tfh->name, "REMOTE");
  1798.     unlink(tfh->name);
  1799.     sprintf(buf, "%s %s", pack[2] ? "gzip -d" : "uncompress", tfh->name);
  1800.     system(buf);
  1801.   }
  1802.   tfh->fh = fopen(tfh->name, "r");
  1803.  
  1804.   return 0;
  1805. }
  1806.  
  1807.  
  1808. int xftp_download(remote, locdir, size, progress)
  1809.   char *remote, *locdir;
  1810.   int size, (*progress) ();
  1811. {
  1812.   char locname[200];
  1813.  
  1814.   strcpy(locname, locdir);
  1815.   tackon(locname, basename(remote));
  1816.  
  1817.   fprintf(xFtp, "get %s %s\n", remote, locname);
  1818.   fflush(xFtp);
  1819.  
  1820.   xftp_waitfile(locname, size, progress, 30, 0);
  1821.  
  1822.   return 0;
  1823. }
  1824.  
  1825.  
  1826. int xftp_disconnect()
  1827. {
  1828.   if (!Connected)
  1829.     return 0;
  1830.   Connected = 0;
  1831.  
  1832.   fprintf(xFtp, "close\n");
  1833.   fflush(xFtp);
  1834.   return 0;
  1835. }
  1836.  
  1837. char *XFTPHelp[] = {
  1838.   "External FTP client setup",
  1839.   "You need a site where you retrieve your files from. Pick one that is",
  1840.   "close to where you live, and later experiment around to find out which",
  1841.   "one's the best for you.", 0
  1842. };
  1843.  
  1844.  
  1845. int xftp_options()
  1846. {
  1847.   setup_sitelist("ftpsites", "ftpsite", XFTPHelp);
  1848.  
  1849.   return 0;
  1850. }
  1851.  
  1852. int xftp_close()
  1853. {
  1854.   if (xFtp) {
  1855.     fprintf(xFtp, "bye\n");
  1856.     pclose(xFtp);
  1857.     xFtp = 0;
  1858.     Connected = 0;
  1859.   }
  1860.   return 0;
  1861. }
  1862.  
  1863. int xftp_init()
  1864. {
  1865.   char buf[100];
  1866.  
  1867.   sprintf(buf, "ftp -n");
  1868.  
  1869.   if (!xFtp && !(xFtp = popen(buf, "w")))
  1870.     exit_adt("Could not start 'ftp'");
  1871.  
  1872.   trans_options = xftp_options;
  1873.   trans_connect = xftp_connect;
  1874.   trans_remopen = xftp_remopen;
  1875.   trans_download = xftp_download;
  1876.   trans_disconnect = xftp_disconnect;
  1877.   trans_close = xftp_close;
  1878.  
  1879.   return 0;
  1880. }
  1881.  
  1882. #endif
  1883.  
  1884.  
  1885. /* ==============================TCP functions========================= */
  1886. #ifndef NO_TCP_UTILITY
  1887.  
  1888. /* creates an new tcp socket and connects it to <host> on port <port>. returns
  1889.  * -1 if a failure occured. NOTE: host can either be a hostname or a
  1890.  * dot-notation of the internet adress */
  1891. int tcp_createsocket(host, port)
  1892.   char *host;
  1893.   int port;
  1894. {
  1895.   struct sockaddr_in sin;
  1896.   struct hostent *h;
  1897.   int connected, net = -1;
  1898.  
  1899.   if ((sin.sin_addr.s_addr = inet_addr(host)) == -1) {
  1900.     if (!(h = gethostbyname(host)))
  1901.       return -1;
  1902.     else {
  1903.       sin.sin_family = h->h_addrtype;
  1904.  
  1905. #ifndef NOT43
  1906.       memcpy((caddr_t) & sin.sin_addr, h->h_addr_list[0], h->h_length);
  1907. #else
  1908.       memcpy((caddr_t) & sin.sin_addr, h->h_addr, h->h_length);
  1909. #endif
  1910.     }
  1911.   } else
  1912.     sin.sin_family = AF_INET;
  1913.  
  1914.   sin.sin_port = htons(port);
  1915.  
  1916.   for (connected = 1; connected && (connected < 30); connected++) {
  1917.     if ((net = socket(AF_INET, SOCK_STREAM, 0)) < 0)
  1918.       return -1;
  1919.  
  1920.     if (connect(net, (struct sockaddr *) & sin, sizeof(sin)) >= 0) {
  1921.       connected = 0;
  1922.       break;
  1923.     } else
  1924.       close(net);
  1925.   }
  1926.  
  1927.   if (!connected)
  1928.     return net;
  1929.   else
  1930.     return -1;
  1931. }
  1932.  
  1933. #endif
  1934.  
  1935. /* ==============================BUILTIN FTP PACKAGE========================= */
  1936. #ifndef NO_BUILTIN_FTP
  1937.  
  1938. #ifndef BFTP_BUFSIZE
  1939. # define BFTP_BUFSIZE 10000
  1940. #endif
  1941.  
  1942. FILE *bftp_io = NULL;
  1943.  
  1944. char *BFTPHelp[] =
  1945. {
  1946.   "Builtin FTP client setup",
  1947.   "You'll need a site where you retrieve your files from. Pick one that is",
  1948.   "close to where you live, and later experiment around to find out which",
  1949.   "one's the best for you.", 0
  1950. };
  1951.  
  1952. int bftp_options()
  1953. {
  1954.   return setup_sitelist("ftpsites", "ftpsite", BFTPHelp);
  1955. }
  1956.  
  1957. int bftp_disconnect()
  1958. {
  1959.   Connected = 0;
  1960.  
  1961.   if (bftp_io)
  1962.     fclose(bftp_io);
  1963.   bftp_io = NULL;
  1964.  
  1965.   return 0;
  1966. }
  1967.  
  1968. int bftp_close()
  1969. {
  1970.   return bftp_disconnect();
  1971. }
  1972.  
  1973. /* Send FTP command and wait for reply. Returns 0 on failure. */
  1974. int bftp_cmd(cmd)
  1975.   char *cmd;
  1976. {
  1977.   char buf[256];
  1978.   int result;
  1979.  
  1980.   if (!bftp_io)
  1981.     return 0;
  1982.  
  1983.   if (cmd) {
  1984.     fflush(bftp_io);
  1985.     rewind(bftp_io);
  1986.     fputs(cmd, bftp_io);
  1987.   }
  1988.   fflush(bftp_io);
  1989.   rewind(bftp_io);
  1990.   if (!fgets(buf, sizeof(buf), bftp_io))
  1991.     return 0;
  1992.  
  1993.   result = myatoi(buf);
  1994.  
  1995.   while ((buf[3] != ' ') || (myatoi(buf) != result)) {
  1996.     if (!fgets(buf, sizeof(buf), bftp_io))
  1997.       return 0;
  1998.   }
  1999.  
  2000.   return (result >= 100) && (result < 400);
  2001. }
  2002.  
  2003. int bftp_getdataconnection()
  2004. {
  2005.   struct sockaddr_in sin;
  2006.   struct hostent *hp;
  2007.   int d, i;
  2008.   unsigned char *a, *p;
  2009.   char buf[80];
  2010.  
  2011.   i = sizeof(sin);
  2012.   if (getsockname (fileno(bftp_io), (struct sockaddr *)&sin, &i))
  2013.     return -1;
  2014.  
  2015.   /* clear Port, let system choose */
  2016.   sin.sin_port = 0;
  2017.  
  2018.   if ((d = socket(sin.sin_family, SOCK_STREAM, 0)) < 0)
  2019.     return -1;
  2020.  
  2021.   i = sizeof(sin);
  2022.   if ((bind(d, (struct sockaddr *) & sin, i) < 0) ||
  2023.       (getsockname(d, (struct sockaddr *) & sin, &i) < 0) ||
  2024.       (listen(d, 1) < 0)) {
  2025.     close(d);
  2026.     return -1;
  2027.   }
  2028.   a = (unsigned char *) &sin.sin_addr;
  2029.   p = (unsigned char *) &sin.sin_port;
  2030.  
  2031.   sprintf(buf, "PORT %d,%d,%d,%d,%d,%d\n", a[0], a[1], a[2], a[3], p[0], p[1]);
  2032.   if (!bftp_cmd(buf)) {
  2033.     close(d);
  2034.     return -1;
  2035.   }
  2036.   return d;
  2037. }
  2038.  
  2039. int bftp_getfile(remote, local, size, progress)
  2040.   char *remote, *local;
  2041.   int size, (*progress) ();
  2042. {
  2043.   FILE *out = NULL;
  2044.   int s = -1, d = -1, i, got = 0, result = 0;
  2045.   char *buf, *msg = NULL, tmp[80];
  2046.   struct sockaddr_in sin;
  2047.  
  2048.   if (!Connected)
  2049.     return 0;
  2050.  
  2051.   buf = salloc(BFTP_BUFSIZE);
  2052.  
  2053.   sprintf(buf, "Getting %s...", remote);
  2054.   progress(buf);
  2055.  
  2056.   if ((s = bftp_getdataconnection()) >= 0) {
  2057.     sprintf(buf, "RETR %s\n", remote);
  2058.     if (bftp_cmd(buf)) {
  2059.       i = sizeof(sin);
  2060.       if ((d = accept(s, (struct sockaddr *) & sin, &i)) >= 0) {
  2061.     if ((out = fopen(local, "w"))) {
  2062.       int len, k, start = time(NULL), t;
  2063.       float kps;
  2064.  
  2065.       while ((len = read(d, buf, BFTP_BUFSIZE)) > 0) {
  2066.         if (fwrite(buf, len, 1, out) != 1) {
  2067.           close(s);
  2068.           fclose(out);
  2069.           msg = "Error writing to local file";
  2070.           break;
  2071.         }
  2072.         got += len;
  2073.  
  2074.         if (progress) {
  2075.           k = (got + 512) / 1024;
  2076.           kps = (float)got / (float)((t = time(NULL) - start) ? t * 1024 : 1024);
  2077.           kps = (int)(kps*10.0) / 10.0;
  2078.  
  2079.           if (size > 0)
  2080.         sprintf(tmp, "Downloading %s, %4dK/%4dK (%#3.3g Kbyte/s)",
  2081.             remote, k, (size + 512) / 1024, kps);
  2082.           else
  2083.         sprintf(tmp, "Downloading %s, %4dK (%#3.3g Kbyte/s)", remote, k, kps);
  2084.  
  2085.           progress(tmp);
  2086.         }
  2087.       }
  2088.  
  2089.           close(d);
  2090.           d = -1;
  2091.  
  2092.       if (bftp_cmd(NULL) && ((size <= 0) || (got == size)))
  2093.         result = 1;
  2094.       else {
  2095.         sprintf(buf, "Error getting file %s (got %d bytes instead of %d)", 
  2096.             remote, got, size);
  2097.         msg = buf;
  2098.       }
  2099.     } else
  2100.       msg = "Cannot create local file";
  2101.       } else
  2102.     msg = "Cannot establish data connection to ftp site";
  2103.     } else
  2104.       msg = "Cannot get file from ftp site";
  2105.   } else
  2106.     msg = "Cannot initiate data connection to ftp site";
  2107.  
  2108.   if (progress && msg) {
  2109.     sleep(1);
  2110.     progress(msg);
  2111.     sleep(2);
  2112.   }
  2113.  
  2114.   if (d >= 0)
  2115.     close(d);
  2116.   if (s >= 0)
  2117.     close(s);
  2118.   if (out)
  2119.     fclose(out);
  2120.   free(buf);
  2121.  
  2122.   return result;
  2123. }
  2124.  
  2125. int bftp_connect(progress, remote)
  2126.   int (*progress) ();
  2127.   int remote;
  2128. {
  2129.   char *parts[10], buf[100], passwd[32] , *msg = NULL;
  2130.   struct servent *sp;
  2131.   int s, port = 21;
  2132.   char *site;
  2133.  
  2134.   if (Connected)
  2135.     return 1;
  2136.   Connected = 1;
  2137.  
  2138.   str_sitesplit(option_get("ftpsite"), parts);
  2139.  
  2140.   if (remote)
  2141.     sprintf(buf, "Connecting to %s (master site)", site=parts[*parts[4]? 4:1]);
  2142.   else
  2143.     sprintf(buf, "Connecting to %s", site=parts[1]);
  2144.  
  2145.   progress(buf);
  2146.  
  2147.   if ((sp = getservbyname("ftp", "tcp")))
  2148.     port = ntohs(sp->s_port);
  2149.  
  2150.   sprintf(passwd,"PASS %s@\n",getlogin());             /* take users login name as passwd */
  2151.  
  2152.   if ((s = tcp_createsocket(site, port)) >= 0) {
  2153.     if ((bftp_io = fdopen(s, "r+"))) {
  2154.       sprintf (buf, "CWD %s\n", *parts[3] ? parts[3] : "pub/aminet");
  2155.       if (bftp_cmd(NULL) &&
  2156.       bftp_cmd("USER ftp\n") &&
  2157.       bftp_cmd(passwd) &&
  2158.       bftp_cmd( buf ) &&
  2159.       bftp_cmd("TYPE I\n"))
  2160.     return 0;
  2161.       else
  2162.     msg = "Login failed, probably user limit reached, retry later.";
  2163.     } else {
  2164.       close(s);
  2165.       msg = "Could not communicate with ftp site.";
  2166.     }
  2167.   } else
  2168.     msg = "Could not connect to ftp site.";
  2169.  
  2170.   bftp_close();
  2171.  
  2172.   if (msg) {
  2173.     sleep(1);
  2174.     progress(msg);
  2175.     sleep(2);
  2176.   }
  2177.  
  2178.   return 1;
  2179. }
  2180.  
  2181. int bftp_remopen(tfh, remote, pack, progress)
  2182.   TEMPFILE *tfh;
  2183.   char *remote, *pack;
  2184.   int (*progress) ();
  2185. {
  2186.   char buf[200];
  2187.  
  2188.   tfh->fh = NULL;
  2189.   temp_name(tfh->name, "RECENT");
  2190.   strcat(tfh->name, pack);
  2191.   tfh->cleanup = temp_delete;
  2192.  
  2193.   unlink(tfh->name);
  2194.  
  2195.   sprintf(buf, "%s%s", remote, pack);
  2196.  
  2197.   if (bftp_getfile(buf, tfh->name, 0, progress)) {
  2198.     if (*pack) {
  2199.       temp_name(tfh->name, "RECENT");
  2200.       unlink(tfh->name);
  2201.  
  2202.       progress ("Uncompressing");
  2203.       if (pack[2]) {
  2204.         sprintf(buf,"gzip -d <%s%s >%s", tfh->name, pack, tfh->name);
  2205.       } else {
  2206.         sprintf(buf,"uncompress <%s%s >%s", tfh->name, pack, tfh->name);
  2207.       }
  2208.       system(buf);
  2209.       sprintf(buf,"%s%s",tfh->name,pack);
  2210.       unlink (buf);
  2211.     }
  2212.  
  2213.     tfh->fh = fopen(tfh->name, "r");
  2214.   }
  2215.   NoFilesString = "Could not download index file";
  2216.  
  2217.   return 0;
  2218. }
  2219.  
  2220. int bftp_download(remote, locdir, size, progress)
  2221.   char *remote, *locdir;
  2222.   int size, (*progress) ();
  2223. {
  2224.   char buf[200];
  2225.  
  2226.   strcpy(buf, locdir);
  2227.   tackon(buf, basename(remote));
  2228.  
  2229.   bftp_getfile(remote, buf, size, progress);
  2230.  
  2231.   return 0;
  2232. }
  2233.  
  2234. int bftp_init()
  2235. {
  2236.   Connected = 0;
  2237.   trans_options = bftp_options;
  2238.   trans_connect = bftp_connect;
  2239.   trans_disconnect = bftp_disconnect;
  2240.   trans_remopen = bftp_remopen;
  2241.   trans_download = bftp_download;
  2242.   trans_close = bftp_close;
  2243.  
  2244.   return 0;
  2245. }
  2246.  
  2247. #endif
  2248.  
  2249. /* =================================FIND CLIENT=============================== */
  2250. #ifndef NO_FIND_CLIENT
  2251.  
  2252. #define FINDD_PORT 1848
  2253.  
  2254. FILE *findd_fgrep(host, string, max)
  2255.   char *host, *string;
  2256.   int max;
  2257. {
  2258.   int fd;
  2259.   char buf[200];
  2260.   int port= FINDD_PORT;
  2261.  
  2262.   sprintf(buf, "Connecting to findserver %s...", host);
  2263.   disp_clear();
  2264.   disp_report(buf);
  2265.  
  2266.   if ((fd = tcp_createsocket(host, port)) >= 0) {
  2267.     sprintf(buf, "max %d ; ADTfind %s ; quit\r\n", max, string);
  2268.     write(fd, buf, strlen(buf));
  2269.     return fdopen(fd, "r");
  2270.   } else {
  2271.     sleep(1);
  2272.     disp_report("Could not connect to find server");
  2273.     sleep(2);
  2274.   }
  2275.  
  2276.   return NULL;
  2277. }
  2278.  
  2279.  
  2280. #else
  2281.  
  2282. char *NoFinddHelp[] =
  2283. {
  2284.   "Sorry, no find daemon compiled into this version", 0
  2285. };
  2286.  
  2287. FILE *findd_fgrep(host, port, string, max)
  2288.   char *host, *string;
  2289.   int port, max;
  2290. {
  2291.   disp_confirm(NoFinddHelp, 0);
  2292.   return NULL;
  2293. }
  2294.  
  2295. #endif
  2296.  
  2297. /* =================================MAIN PROGRAM============================== */
  2298.  
  2299. int adt_connect (progress, remote)
  2300.   int (*progress) ();
  2301.   int remote;
  2302. {
  2303.   return trans_connect (progress, remote);
  2304. }
  2305.  
  2306. int adt_disconnect ()
  2307. {
  2308.   trans_disconnect ();
  2309.   return 0;
  2310. }
  2311.  
  2312. #ifdef SIGINT
  2313. void adt_breakcheck (sig)
  2314.   int sig;
  2315. {
  2316.   signal(SIGINT, adt_breakcheck);
  2317.  
  2318.   if (!MaskSIGINT || (MaskSIGINT && GotSIGINT))
  2319.     exit_adt ("Aborted");
  2320.   GotSIGINT=1;
  2321. }
  2322. #endif
  2323.  
  2324.  
  2325. int tagcurrent()
  2326. {
  2327.   if (Vis->num && Vis->list[Vis->current])
  2328.     Vis->list[Vis->current]->tagged ^= 1;
  2329.  
  2330.   return 0;
  2331. }
  2332.  
  2333. int tagall()
  2334. {
  2335.   int tag, i;
  2336.   ENTRY **e = Vis->list;
  2337.  
  2338.   if (Vis->num) {
  2339.     tag = Vis->list[0]->tagged ^ 1;
  2340.     for (i = 0; i < Vis->num; i++)
  2341.       e[i]->tagged = tag;
  2342.   }
  2343.   return 0;
  2344. }
  2345.  
  2346. char transferdesc[200];
  2347.  
  2348. char *transferstr()
  2349. {
  2350.   char *proc = Action ? (Action == 2 ? "unpack" : "send") : "none";
  2351.  
  2352.   sprintf(transferdesc,
  2353.       "Action: %-6s  Path: %-16.16s  Readmes: %c  Subdirs: %c  Verbose: %c",
  2354.       proc, Path, Readme ? 'y' : 'n', Flat ? 'n' : 'y', Silent ? 'n' : 'y');
  2355.  
  2356.   return transferdesc;
  2357. }
  2358.  
  2359. int progress_dummy()
  2360. {
  2361.   return 0;
  2362. }
  2363.  
  2364. int make_dirs(path)
  2365.   char *path;
  2366. {
  2367.   char buf[200], *s = path, *d = buf;
  2368.  
  2369.   do {
  2370.     while (*s && *s != '/')
  2371.       *d++ = *s++;
  2372.  
  2373.     *d = 0;
  2374.  
  2375.     if (access(buf, 3))
  2376.       makedir(buf, 0755);
  2377.  
  2378.     if (*s)
  2379.       *d++ = *s++;
  2380.   } while (*s);
  2381.  
  2382.   return 0;
  2383. }
  2384.  
  2385.  
  2386. int do_action(locdir, remname)
  2387.   char *locdir, *remname;
  2388. {
  2389.   char locname[200];
  2390.   char buf[200];
  2391.   int len;
  2392.  
  2393.   strcpy(locname, locdir);
  2394.   tackon(locname, basename(remname));
  2395.  
  2396.   if (Action == 1) {
  2397.     sprintf(buf, "%s %s", option_get("send"), locname);
  2398.     system(buf);
  2399.     sleep(2);
  2400.     disp_refresh();
  2401.   }
  2402.   if (Action == 2) {
  2403.     len = mystrlen(locname);
  2404.  
  2405.     if (len > 4 && !mystricmp(locname + len - 4, ".lha")) {
  2406.       puts("");
  2407.       sprintf(buf, "cd %s;lha e %s", locdir, locname);
  2408.       system(buf);
  2409.       disp_refresh();
  2410.     } else if (len > 2 && !mystrcmp(locname + len - 2, ".Z")) {
  2411.       puts("");
  2412.       sprintf(buf, "cd %s;uncompress %s", locdir, locname);
  2413.       system(buf);
  2414.       disp_refresh();
  2415.     } else if (len > 3 && !mystrcmp(locname + len - 3, ".gz")) {
  2416.       puts("");
  2417.       sprintf(buf, "cd %s;gzip -d %s", locdir, locname);
  2418.       system(buf);
  2419.       disp_refresh();
  2420.     }
  2421.   }
  2422.   return 0;
  2423. }
  2424.  
  2425. int get_files(progress, showfile)
  2426.   int (*progress) (), (*showfile) ();
  2427. {
  2428.   ENTRY *e;
  2429.   char locdir[200], remname[200];
  2430.   int i, p, err = 0, n;
  2431.  
  2432.   if (Silent)
  2433.     progress = progress_dummy;
  2434.  
  2435.  
  2436.   MaskSIGINT = 1;
  2437.  
  2438.   for (p=FilesAreRemote; p<2; p++) {
  2439.  
  2440.     for (i = n = 0; i < Vis->num; i++)
  2441.       if ( (Vis->list[i]->status & 1) == p || FilesAreRemote)
  2442.         n++;
  2443.  
  2444.     if (!n)
  2445.       continue;
  2446.  
  2447.     if (adt_connect(progress, p))
  2448.       continue;
  2449.  
  2450.     for (i = 0; i < Vis->num; i++) {
  2451.       e = Vis->list[i];
  2452.  
  2453.       if (!FilesAreRemote && (e->status & 1) != p)
  2454.         continue;
  2455.  
  2456.       showfile (Vis, i);
  2457.  
  2458.       mystrcpy(locdir, option_get("dlpath"));
  2459.       glob_path(locdir);
  2460.       if (!Flat)
  2461.         tackon(locdir, e->dir);
  2462.       make_dirs(locdir);
  2463.  
  2464.       strcpy(remname, e->dir);
  2465.       tackon(remname, e->file);
  2466.  
  2467.       if (!*locdir)
  2468.         strcpy(locdir, CURDIR);
  2469.  
  2470.       if ((err = trans_download(remname, locdir, e->size, progress)))
  2471.         break;
  2472.  
  2473.       if ( GotSIGINT )
  2474.         break;
  2475.  
  2476.       do_action(locdir, remname);
  2477.  
  2478.       if (Readme) {
  2479.         strcpy(remname, e->dir); 
  2480.         tackon(remname, get_readme(e));
  2481.  
  2482.         if ((err = trans_download(remname, locdir, e->readmesize, progress)))
  2483.       break;
  2484.  
  2485.         if ( GotSIGINT )
  2486.           break;
  2487.  
  2488.         do_action(locdir, remname);
  2489.       }
  2490.  
  2491.       if (GotSIGINT) {
  2492.         progress ("Interrupted");
  2493.         break;
  2494.       }
  2495.  
  2496.       e->tagged = 0;
  2497.       showfile (Vis, i);
  2498.  
  2499.     }
  2500.  
  2501.     adt_disconnect();
  2502.  
  2503.     if (err)
  2504.       disp_status("Error during download");
  2505.  
  2506.   }
  2507.  
  2508.   MaskSIGINT = GotSIGINT = 0;
  2509.  
  2510.   return 0;
  2511. }
  2512.  
  2513. int find_string(string, progress)
  2514.   char *string;
  2515.   int (*progress) ();
  2516. {
  2517.   FILE *fh;
  2518.   char *site;
  2519.   char *parts[10];
  2520.  
  2521.   NoFilesString = "No files found matching your pattern";
  2522.   Vis->sel = "Found files";
  2523.  
  2524.   if (!*option_get("findmethod"))
  2525.     if (setup_findmethod())
  2526.       return 1;
  2527.  
  2528.   switch (option_getnum("findmethod")) {
  2529.  
  2530.   case 0:
  2531.  
  2532.     GotComplete = GotLocal = GotRecent = 0;
  2533.  
  2534.     site = option_get("findsite");
  2535.  
  2536.     progress("Searching...");
  2537.  
  2538.     str_sitesplit(site, parts);
  2539.  
  2540.     fh = findd_fgrep(parts[1], string, 100);
  2541.  
  2542.     if (fh) {
  2543.       FilesAreRemote= 1;
  2544.       e_freeall();
  2545.       fgets(parsebuf, 120, fh);
  2546.       read_adt_v2(fh);
  2547.       allvisible();
  2548.       fclose(fh);
  2549.     }
  2550.     Vis->sel = "Found files";
  2551.     sort_list(Vis, &sort_dir);
  2552.  
  2553.     break;
  2554.  
  2555.   case 1:
  2556.  
  2557.     FilesAreRemote= 0;
  2558.     get_sitelocal();
  2559.     progress("Searching...");
  2560.     findstr(string);
  2561.     break;
  2562.  
  2563.   case 2:
  2564.  
  2565.     FilesAreRemote= 1;
  2566.     get_complete();
  2567.     progress("Searching...");
  2568.     findstr(string);
  2569.     break;
  2570.  
  2571.   }
  2572.  
  2573.   return 0;
  2574. }
  2575.  
  2576. int print_listing(width)
  2577.   int width;
  2578. {
  2579.   ENTRY **list = Vis->list;
  2580.   FILE *f;
  2581.   char file[300];
  2582.   int i;
  2583.   long now = time(NULL);
  2584.  
  2585.   strcpy (file, glob_path( option_get("printer")));
  2586.  
  2587.   if (!*file || !(f = fopen(file, "w")))
  2588.     return 0;
  2589.  
  2590.   if (width == 1) {
  2591.  
  2592.     fputs("|File              Dir        Size Age Description\n", f);
  2593.     fputs("|----------------- ---------- ---- --- -----------\n", f);
  2594.  
  2595.   } else {
  2596.  
  2597.     fputs("|File              Dir        Size Age Description\n", f);
  2598.     fputs("|----------------- ---------- ---- --- -----------\n", f);
  2599.  
  2600.   }
  2601.  
  2602.  
  2603.   for (i = 0; i < Vis->num; i++) {
  2604.  
  2605.     if (width == 1) {
  2606.  
  2607.       fprintf(f, "%-18.18s %-10.10s %4.4s %3d %-40.40s\n",
  2608.           list[i]->file,
  2609.           list[i]->dir,
  2610.           str_ksize(list[i]->size),
  2611.               weekage(list[i]->time),
  2612.           list[i]->desc);
  2613.  
  2614.     } else {
  2615.  
  2616.       fprintf(f, "%-18.18s %-10.10s %4.4s %3d %-.80s\n",
  2617.           list[i]->file,
  2618.           list[i]->dir,
  2619.           str_ksize(list[i]->size),
  2620.           weekage(list[i]->time),
  2621.           list[i]->desc);
  2622.  
  2623.     }
  2624.   }
  2625.  
  2626.   fclose(f);
  2627.  
  2628.   return 0;
  2629. }
  2630.  
  2631.  
  2632. int display_remote(name, title)
  2633.   char *name;
  2634.   char *title;
  2635. {
  2636.   TEMPFILE tfh;
  2637.   char **strings;
  2638.  
  2639.   trans_remopen(&tfh, name, "", disp_status);
  2640.  
  2641.   if (tfh.fh) {
  2642.  
  2643.     strings = read_file(tfh.fh, title);
  2644.     disp_more(strings);
  2645.     free_file(strings);
  2646.     tclose(&tfh);
  2647.  
  2648.   } else {
  2649.  
  2650.     disp_status ("Could not open remote file");
  2651.  
  2652.   }
  2653.  
  2654.   return 0;
  2655. }
  2656.  
  2657.  
  2658. /* =================================CURSES PACKAGE============================ */
  2659. #ifndef NO_CURSES
  2660.  
  2661. int debug(str)
  2662.   char *str;
  2663. {
  2664.   move(0, 0);
  2665.   addstr(str);
  2666.   refresh();
  2667.   sleep(1);
  2668.   return 0;
  2669. }
  2670.  
  2671. int cur_dispinit()
  2672. {
  2673.   initscr();
  2674.   nl();
  2675.   noecho();
  2676.   cbreak();
  2677.   return 0;
  2678. }
  2679.  
  2680. int cur_getchar()
  2681. {
  2682.   int c=getchr();
  2683. #ifdef SHOW_KEYS
  2684.   static int foo;
  2685.   char buf[20];
  2686.   sprintf(buf,"%2x",c);
  2687.   move(0, (foo+=2)%8);
  2688.   addstr(buf);
  2689. #endif
  2690.  
  2691.   return c;
  2692. }
  2693.  
  2694.  
  2695. #define Y_LISTTITLE 2
  2696. #define Y_LISTSTART 3
  2697. #define Y_LISTEND   (LINES-6)
  2698. #define Y_INFO      (LINES-5)
  2699. #define Y_COMMAND   (LINES-3)
  2700. #define Y_STATUS    (LINES-1)
  2701.  
  2702. #define X_COMMAND   9
  2703.  
  2704.  
  2705. int cur_helpblock(help)
  2706.   char **help;
  2707. {
  2708.   int i, m = str_shift(str_longest(help), COLS);
  2709.  
  2710.   clear();
  2711.  
  2712.   move(0, 0);
  2713.   addstr(str_center(help[0], COLS));
  2714.  
  2715.   for (i = 0; help[i + 1]; i++) {
  2716.     move(2 + i, m);
  2717.     addstr(help[i + 1]);
  2718.   }
  2719.  
  2720.   return i;
  2721. }
  2722.  
  2723. char *cur_getstringat(buf, x, y)
  2724.   char *buf;
  2725.   int x, y;
  2726. {
  2727.   char bak[300];
  2728.   int c, l = strlen(buf), p = l, i;
  2729.  
  2730.   mystrcpy(bak, buf);
  2731.  
  2732.   move(y, x);
  2733.   addstr(buf);
  2734.  
  2735.   for (;;) {
  2736.     move(y, x + p);
  2737.     refresh();
  2738.     switch (c = inp_getchr()) {
  2739.  
  2740.     case 1:
  2741.       p = 0;
  2742.       break;
  2743.  
  2744.     case 5:
  2745.       p = l;
  2746.       break;
  2747.  
  2748.     case 8: case 127:
  2749.       if (p == 0)
  2750.     break;
  2751.  
  2752.       for (i = --p; i < l; i++)
  2753.     buf[i] = buf[i + 1];
  2754.       buf[--l] = ' ';
  2755.  
  2756.       move(y, x + p);
  2757.       addstr(buf + p);
  2758.       buf[l] = 0;
  2759.       break;
  2760.  
  2761.     case 13: case 10:
  2762.       goto done;
  2763.  
  2764.     case K_RIGHT:
  2765.       if (p < l)
  2766.     p++;
  2767.       break;
  2768.  
  2769.     case K_LEFT:
  2770.       if (p > 0)
  2771.     p--;
  2772.       break;
  2773.  
  2774.     default:
  2775.       if (c < ' ' || c > 127 || l > COLS - x - 1)
  2776.     break;
  2777.  
  2778.       for (i = l; i > p; i--)
  2779.     buf[i + 1] = buf[i];
  2780.       buf[++l] = 0;
  2781.       buf[p] = c;
  2782.  
  2783.       move(y, x + p);
  2784.       addstr(buf + p);
  2785.       p++;
  2786.       break;
  2787.     }
  2788.  
  2789.   }
  2790.  
  2791. done:
  2792.   return buf;
  2793.  
  2794. }
  2795.  
  2796. int OptLen;
  2797.  
  2798. char *cur_inputstr(buf, help)
  2799.   char *buf, **help;
  2800. {
  2801.   int x = str_shift(str_longest(help), COLS);
  2802.   int y = 3 + cur_helpblock(help);
  2803.  
  2804.   move(y, x);
  2805.   addstr("> ");
  2806.  
  2807.   return cur_getstringat(buf, x + 2, y);
  2808. }
  2809.  
  2810.  
  2811. char *cur_getstring(buf)
  2812.   char *buf;
  2813. {
  2814.   int y = Y_COMMAND, x = X_COMMAND + OptLen;
  2815.   char *ret;
  2816.  
  2817.   move(y, x);
  2818.   addstr(": ");
  2819.   x += 2;
  2820.   OptLen += 2;
  2821.  
  2822.   ret = cur_getstringat(buf, x, y);
  2823.  
  2824.   OptLen = x + strlen(buf) + 1;
  2825.  
  2826.   return ret;
  2827. }
  2828.  
  2829. char dbuf[300];
  2830.  
  2831. int cur_displist(list)
  2832.   LIST *list;
  2833. {
  2834.   int i;
  2835.   char *line;
  2836.   char *t = NULL, c = 0;
  2837.  
  2838.   Window = Y_LISTEND - list->top;
  2839.  
  2840.   if (!list->num) {
  2841.     move(LINES / 2, 0);
  2842.     addstr(str_center(NoFilesString, COLS - 1));
  2843.     return 0;
  2844.   }
  2845.  
  2846.   list->offset = list->current / Window * Window;
  2847.  
  2848.   for (i = 0; i < Window; i++) {
  2849.     line = list->disp(list->list, list->offset + i, list->num, dbuf, COLS);
  2850.  
  2851.     if (*line)
  2852.       move(list->top + i, list->type ? (COLS - strlen(line)) / 2 : 0);
  2853.     else {
  2854.       move(list->top + i, 0);
  2855.       clrtoeol();
  2856.     }
  2857.  
  2858.     if (list->offset + i != list->current) {
  2859.       addstr(line);
  2860.     } else {
  2861.       if (list->type == 0) {
  2862.     for (t = line + 1; *t != ' '; t++);
  2863.     c = t[1];
  2864.     t[1] = 0;
  2865.       }
  2866.       standout();
  2867.       addstr(line);
  2868.       standend();
  2869.  
  2870.       if (list->type == 0) {
  2871.     t[1] = c;
  2872.     addstr(t + 1);
  2873.       }
  2874.     }
  2875.   }
  2876.  
  2877.   return 0;
  2878. }
  2879.  
  2880. int cur_dispfiles(list)
  2881.   LIST *list;
  2882. {
  2883.   Window = Y_LISTEND - Y_LISTSTART;
  2884.  
  2885.   if (list == Vis) {
  2886.     move(0, 0);
  2887.     addstr(str_topline(dbuf, COLS - 1, list));
  2888.   }
  2889.  
  2890.   cur_displist(list);
  2891.  
  2892.   return 0;
  2893. }
  2894.  
  2895.  
  2896. int cur_dispmask()
  2897. {
  2898.   Window = Y_LISTEND - Y_LISTSTART;
  2899.  
  2900.   Vis->disp = str_entry;
  2901.   Vis->top = Y_LISTSTART;
  2902.  
  2903.   clear();
  2904.   move(Y_LISTTITLE, 0);
  2905.   addstr(str_titles(dbuf, COLS - 1));
  2906.  
  2907.   cur_dispfiles(Vis);
  2908.  
  2909.   move(Y_INFO, 0);
  2910.   addstr(str_center(Vis->cmds, COLS - 1));
  2911.  
  2912.   move(Y_COMMAND, 0);
  2913.   addstr("Command: ");
  2914.  
  2915.   refresh();
  2916.   return 0;
  2917. }
  2918.  
  2919. int cur_mark(list, on)
  2920.   LIST *list;
  2921.   int on;
  2922. {
  2923.   char *t = NULL, *line;
  2924.  
  2925.   line = list->disp(list->list, list->current, list->num, dbuf, COLS - 1);
  2926.  
  2927.   if (list->type == 0) {
  2928.     for (t = line + 1; *t != ' '; t++);
  2929.     t[1] = 0;
  2930.   }
  2931.   move(list->top + list->current - list->offset,
  2932.        list->type ? (COLS - strlen(line)) / 2 : 0);
  2933.  
  2934.   if (on)
  2935.     standout();
  2936.   addstr(line);
  2937.   if (on)
  2938.     standend();
  2939.  
  2940.   if (list->type == 0)
  2941.     t[1] = ' ';
  2942.  
  2943.   return 0;
  2944. }
  2945.  
  2946. int cur_gomid(list)
  2947.   LIST *list;
  2948. {
  2949.   int left = list->num - list->offset;
  2950.  
  2951.   list->current = list->offset + (left < Window ? left : Window) / 2;
  2952.   return 0;
  2953. }
  2954.  
  2955.  
  2956. int cur_moveto(list, pos)
  2957.   LIST *list;
  2958.   int pos;
  2959. {
  2960.   if (!list->num)
  2961.     return 0;
  2962.  
  2963.   if (pos < 0)
  2964.     pos = 0;
  2965.  
  2966.   if (pos > list->num - 1)
  2967.     pos = list->num - 1;
  2968.  
  2969.   if (pos == list->current)
  2970.     return 0;
  2971.  
  2972.   cur_mark(list, 0);
  2973.   list->current = pos;
  2974.  
  2975.   if (pos / Window * Window == list->offset) {
  2976.  
  2977.     cur_mark(list, 1);
  2978.  
  2979.   } else {
  2980.  
  2981.     list->offset = pos / Window * Window;
  2982.     cur_dispfiles(list);
  2983.  
  2984.   }
  2985.  
  2986.   return 0;
  2987. }
  2988.  
  2989. int cur_listnav(list, c)
  2990.   LIST *list;
  2991.   int c;
  2992. {
  2993.   switch (c) {
  2994.   case K_DOWN:
  2995.   case K_CTRL + 'N':
  2996.   case 'j':
  2997.     cur_moveto(list, list->current + 1);
  2998.     break;
  2999.  
  3000.   case K_UP:
  3001.   case K_CTRL + 'P':
  3002.   case 'k':
  3003.     cur_moveto(list, list->current - 1);
  3004.     break;
  3005.  
  3006.   case K_RIGHT:
  3007.   case ' ':
  3008.   case K_CTRL + 'F':
  3009.     cur_moveto(list, (list->current + Window)/Window*Window);
  3010.     break;
  3011.  
  3012.   case K_LEFT:
  3013.   case K_CTRL + 'H':
  3014.   case K_CTRL + 'B':
  3015.   case 'b':
  3016.     cur_moveto(list, (list->current - Window)/Window*Window);
  3017.     break;
  3018.  
  3019.   case K_CTRL + 'I':
  3020.     cur_moveto(list, list->current + 5);
  3021.     break;
  3022.  
  3023.   case '<':
  3024.     cur_moveto(list, 0);
  3025.     break;
  3026.  
  3027.   case '>':
  3028.     cur_moveto(list, list->num - 1);
  3029.     break;
  3030.  
  3031.   case K_CTRL + 'L':
  3032.     touchwin (stdscr);
  3033.     refresh();
  3034.     break;
  3035.  
  3036.   default:
  3037.     return 0;
  3038.  
  3039.   }
  3040.  
  3041.   return 1;
  3042. }
  3043.  
  3044. int cur_choice(help, list)
  3045.   char **help;
  3046.   LIST *list;
  3047. {
  3048.   char *cmd = "Select using cursor keys, press RETURN to accept or q to cancel.";
  3049.   int c, ret = 0;
  3050.  
  3051.   list->top = 3 + cur_helpblock(help);
  3052.  
  3053.   cur_displist(list);
  3054.  
  3055.   move(Y_COMMAND, list->type ? (COLS - strlen(cmd)) / 2 : 0);
  3056.   addstr(cmd);
  3057.  
  3058.   refresh();
  3059.  
  3060.   for (;;) {
  3061.     c = inp_getchr();
  3062.     if (c == 'q')
  3063.       return -1;
  3064.     if (c == 10 || c == 13) {
  3065.       ret = list->current;
  3066.       goto done;
  3067.     }
  3068.     cur_listnav(list, c);
  3069.     move(Y_COMMAND, strlen(cmd) + (list->type ? (COLS - strlen(cmd)) / 2 : 0));
  3070.     refresh();
  3071.   }
  3072.  
  3073. done:
  3074.   return ret;
  3075. }
  3076.  
  3077. int cur_cmdstr(string)
  3078.   char *string;
  3079. {
  3080.   move(Y_COMMAND, X_COMMAND);
  3081.   addstr(string);
  3082.   refresh();
  3083.   OptLen = strlen(string);
  3084.  
  3085.   return 0;
  3086. }
  3087.  
  3088. int cur_subopt(string)
  3089.   char *string;
  3090. {
  3091.   char buf[200], *b = buf;
  3092.   int c, i;
  3093.  
  3094.   cur_cmdstr(string);
  3095.  
  3096.   c = inp_getchr();
  3097.  
  3098.   for (i = 0; string[i] && string[i] != ' '; i++)    /* view   */
  3099.     *b++ = string[i];
  3100.   *b++ = ' ';
  3101.  
  3102.   for (i = strlen(string) - 1; i > 0; i--)    /* a)ll   */
  3103.     if (string[i] == ')' && string[i - 1] == c)
  3104.       break;
  3105.  
  3106.   if (i > 0) {            /* all    */
  3107.     *b++ = string[++i - 2];
  3108.     while (string[i] && string[i] != ' ')
  3109.       *b++ = string[i++];
  3110.   }
  3111.   OptLen = b - buf;
  3112.  
  3113.   while (b < buf + strlen(string))    /* blanks */
  3114.     *b++ = ' ';
  3115.   *b++ = 0;
  3116.  
  3117.   move(Y_COMMAND, X_COMMAND);
  3118.   addstr(buf);
  3119.   move(Y_COMMAND, X_COMMAND + OptLen);
  3120.   refresh();
  3121.   return c;
  3122. }
  3123.  
  3124. char statusbuf[300];
  3125.  
  3126.  
  3127. int cur_statusat(string, y)
  3128.   char *string;
  3129.   int y;
  3130. {
  3131.   int i, sh;
  3132.  
  3133.   for (i = 0; i < COLS - 1; i++)
  3134.     statusbuf[i] = ' ';
  3135.   statusbuf[i] = 0;
  3136.  
  3137.   strcpy(statusbuf + (sh = str_shift(strlen(string), COLS)), string);
  3138.   statusbuf[strlen(statusbuf)] = ' ';
  3139.  
  3140.   move(y, 0);
  3141.   addstr(statusbuf);
  3142.   move(y, sh + strlen(string));
  3143.   refresh();
  3144.  
  3145.   return 0;
  3146. }
  3147.  
  3148. int cur_status(string)
  3149.   char *string;
  3150. {
  3151.   cur_statusat(string, Y_STATUS);
  3152.  
  3153.   return 0;
  3154. }
  3155.  
  3156. int cur_clear()
  3157. {
  3158.   clear();
  3159.   refresh();
  3160.   return 0;
  3161. }
  3162.  
  3163. int cur_report(string)
  3164.   char *string;
  3165. {
  3166.   cur_statusat(string, LINES / 2);
  3167.   return 0;
  3168. }
  3169.  
  3170. int cur_nosubopt()
  3171. {
  3172.   char buf[200], *b = buf;
  3173.  
  3174.   while (OptLen--)
  3175.     *b++ = ' ';
  3176.   *b++ = 0;
  3177.   move(Y_COMMAND, X_COMMAND);
  3178.   addstr(buf);
  3179.   refresh();
  3180.   cur_status("");
  3181.   return 0;
  3182. }
  3183.  
  3184. int cur_more(strings)
  3185.   char **strings;
  3186. {
  3187.   int i, c, lines, offset = 0, len = str_longest(strings);
  3188.   char buf[100], *title = *strings++;
  3189.  
  3190.   for (lines = 0; strings[lines] || lines == 0; lines++);
  3191.  
  3192.   do {
  3193.     clear();
  3194.  
  3195.     move(0, str_shift(strlen(title), len));
  3196.     standout();
  3197.     addstr(title);
  3198.     standend();
  3199.  
  3200.     for (i = 0; i < LINES - 4 && offset + i < lines; i++) {
  3201.       move(2 + i, 0);
  3202.       addstr(strings[offset + i]);
  3203.     }
  3204.  
  3205.     if (offset + i < lines)
  3206.       sprintf(buf, " --- More (%d%%), b)ack, q)uit --- ",
  3207.           (offset + i) * 100 / lines);
  3208.     else
  3209.       strcpy(buf, " --- End --- ");
  3210.  
  3211.     move(MYMIN(LINES - 1, 3 + offset + i), str_shift(strlen(buf), len));
  3212.     standout();
  3213.     addstr(buf);
  3214.     standend();
  3215.     refresh();
  3216.  
  3217.     c = inp_getchr();
  3218.     if (c == 27 || c == 'q')
  3219.       break;
  3220.     else if (c == 'b' || c == K_CTRL + 'H')
  3221.       offset = MYMAX(0, offset - (LINES - 4));
  3222.     else
  3223.       offset += LINES - 4;
  3224.  
  3225.   } while (offset < lines);
  3226.  
  3227.   return 0;
  3228. }
  3229.  
  3230.  
  3231. char *MainHelp[] = {
  3232.   "Aminet Download Tool Help",
  3233.   "Welcome to the Aminet Download Tool. You can select, inspect and download",
  3234.   "files here. File age is in weeks. The command keys available:",
  3235.   "",
  3236.   "cursor    navigate on list",
  3237.   "blank     next page (also cursor right)",
  3238.   "backspace previous page (also cursor left)",
  3239.   "tab       move down five",
  3240.   "<  >      start and end of list",
  3241.   "",
  3242.   "d)ownload receive selected file(s) after setting options",
  3243.   "f)ind     locate a file anywhere on Aminet",
  3244.   "h)elp     this page",
  3245.   "o)ptions  setup page",
  3246.   "p)rint    create a listing on disk or printer",
  3247.   "q)uit     leave, remembering this call",
  3248.   "Q)uit     leave, without remembering this call",
  3249.   "r)eadme   display the .readme of current file",
  3250.   "s)ort     change sorting of displayed list",
  3251.   "t)ag      mark/unmark current file for later download (also RETURN)",
  3252.   "T)ag      mark/unmark all files",
  3253.   "v)iew     select which files to show",
  3254.   "",
  3255.   "Press ? at any submenu to get help about the commands there.",
  3256.   0
  3257. };
  3258.  
  3259. char *ViewHelp[] = {
  3260.   "The v)iew command",
  3261.   "This command selects which files to display in ATD. The suboptions:",
  3262.   "",
  3263.   "a)ll      shows the complete list of all files on Aminet, downloading it",
  3264.   "          first if necessary. No files are hidden.",
  3265.   "d)ir      pick from the currently known files the ones from the directory",
  3266.   "          you specify.",
  3267.   "h)ide     selects one or more directory (separated by commas) that should",
  3268.   "          not be shown. This info is stored in .adtrc on exit",
  3269.   "k)nown    shows all currently known files, including those that are normally",
  3270.   "          hidden",
  3271.   "l)imit    only show the files which have the given string somewhere in their",
  3272.   "          description or file name",
  3273.   "m)arked   only shows the files that have previously been marked using the",
  3274.   "          t)ag command",
  3275.   "n)ew      shows the new files since your previous call minus the hidden ones,",
  3276.   "          downloading the list if necessary",
  3277.   "s)ite     shows the list of files available at the site you are currently",
  3278.   "          connected to",
  3279.   "t)oggle   toggle between the current list and the previously displayed one.",
  3280.   0
  3281. };
  3282.  
  3283. char *SortHelp[] = {
  3284.   "The s)ort command",
  3285.   "Using this command you can select what order the files should be shown by",
  3286.   "",
  3287.   "a)ge      sorts by age, showing the newest files on top",
  3288.   "A)ge      like a)ge but showing the oldest files on top",
  3289.   "d)ir      sorts alphabetically by directory, subsorting by name",
  3290.   "D)ir      like d)ir but reverse order",
  3291.   "n)ame     sorts alphabetically by file name",
  3292.   "N)ame     like n)ame but reverse order",
  3293.   "s)ize     sorts by file size, largest on top",
  3294.   "S)ize     like s)ize, but smallst on top",
  3295.   0
  3296. };
  3297.  
  3298. int cur_editvar(varname, string)
  3299.   char *varname, *string;
  3300. {
  3301.   char buf[100];
  3302.  
  3303.   cur_status(string);
  3304.   mystrncpy(buf, option_get(varname), 99);
  3305.   cur_getstring(buf);
  3306.   option_set(varname, buf);
  3307.   return 0;
  3308. }
  3309.  
  3310. int cur_showfile(list, i)
  3311.   LIST *list;
  3312.   int i;
  3313. {
  3314.   cur_moveto (list, i);
  3315.   cur_mark   (list, 0);
  3316.   cur_mark   (list, 1);
  3317.  
  3318.   return 0;
  3319. }
  3320.  
  3321. char *DownloadHelp[] = {
  3322.   "The d)ownload command",
  3323.   "This command lets you receive files from Aminet. The suboptions:",
  3324.   "",
  3325.   "a)ction   select what to do after the download. Possibilities are either",
  3326.   "          nothing, transfer using zmodem, or archive unpacking",
  3327.   "b)egin    actually perform the download, using the current settings",
  3328.   "          selected by the other keys",
  3329.   "p)ath     lets you enter the destination path for the files, will be",
  3330.   "          created if it does not exist",
  3331.   "q)uit     do not start download, leave all undownloaded files tagged,",
  3332.   "          and return to main files selection page",
  3333.   "r)eadme   toggle between downloading the .readme files along with the",
  3334.   "          archives and not doing so",
  3335.   "s)ubdirs  toggle between putting all files in the same directory vs",
  3336.   "          re-creating the Aminet directory structure",
  3337.   "v)erbose  toggle between quiet and verbose download, where quiet suspends",
  3338.   "          all screen output until all files have been downloaded.",
  3339.   "",
  3340.   "The current settings are displayed in the bottom line. If you want to",
  3341.   "change those settings permanently, use o)ptions d)ownload.",
  3342.   0
  3343. };
  3344.  
  3345. int cur_download()
  3346. {
  3347.   LIST *l;
  3348.   int cont = 1;
  3349.   char path[300];
  3350.  
  3351.   markedextract();
  3352.  
  3353.   l = Vis;
  3354.   Vis = Mark;
  3355.   Mark = l;
  3356.  
  3357.   Flat = option_getnum("flatdl");
  3358.   Readme = option_getnum("readmedl");
  3359.   Silent = option_getnum("silentdl");
  3360.   strcpy(Path, option_get("dlpath"));
  3361.  
  3362.   cur_dispmask();
  3363.  
  3364.   do {
  3365.     cur_status(transferstr());
  3366.     cur_cmdstr("");
  3367.  
  3368.     switch (inp_getchr()) {
  3369.     case '?':
  3370.     case 'h':
  3371.       cur_more(DownloadHelp);
  3372.       cur_dispmask();
  3373.       break;
  3374.  
  3375.     case 'p':
  3376.       cur_cmdstr("path");
  3377.       cur_editvar("dlpath", "Enter path to download files to");
  3378.       strcpy(Path, option_get("dlpath"));
  3379.       strcpy(path, Path);
  3380.       make_dirs (glob_path (path));
  3381.       cur_nosubopt();
  3382.       break;
  3383.  
  3384.     case 'b':
  3385.       cur_moveto(Vis, 0);
  3386.       get_files(cur_status, cur_showfile);
  3387.       cur_nosubopt();
  3388.       cont = 0;
  3389.       break;
  3390.  
  3391.     case 'a':
  3392.       Action = ++Action % 3;
  3393.       break;
  3394.     case 'q':
  3395.       cont = 0;
  3396.       break;
  3397.     case 'r':
  3398.       Readme = !Readme;
  3399.       break;
  3400.     case 's':
  3401.       Flat = !Flat;
  3402.       break;
  3403.     case 'v':
  3404.       Silent = !Silent;
  3405.       break;
  3406.     }
  3407.  
  3408.   } while (cont);
  3409.  
  3410.   l = Vis;
  3411.   Vis = Mark;
  3412.   Mark = l;
  3413.  
  3414.   return 0;
  3415. }
  3416.  
  3417. char *OptionsHelp[] = {
  3418.   "The o)ptions command",
  3419.   "Using the o)ptions command you can modify various settings of ADT. They",
  3420.   "will be saved in .adtrc when you leave ADT using the q)uit command, but",
  3421.   "not if you use Q)uit. The settings you can modify are:",
  3422.   "",
  3423.   "c)ompression lets you pick the compression type used for downloading",
  3424.   "             Aminet contents files.",
  3425.   "d)ownload    will pick the defaults for downloading readmes, verbose or",
  3426.   "             quiet download, download path and so on",
  3427.   "f)ind        lets you pick the method used for finding things on Aminet,",
  3428.   "             ie. download and local search vs. using a search server",
  3429.   "m)ethod      will choose the method used to transfer files, e.g. FTP",
  3430.   "             mail server or local files",
  3431.   "p)rint       lets you choose the format of the listings generated by ADT",
  3432.   "             mostly wide vs. narrow format",
  3433.   "s)ite        this lets you pick the location you want to get your files",
  3434.   "             from, for example which FTP site to use", 0
  3435. };
  3436.  
  3437.  
  3438. char *CompressOptHelp[] = {
  3439.   "Compression type",
  3440.   "Please select the compression method to use for transmitting the Aminet",
  3441.   "index files. If you have very fast access (like local files), pick no",
  3442.   "compression, otherwise pick compress, unless you have 'gzip' in your",
  3443.   "path, which compresses even better at the same speed. Note, we're only",
  3444.   "talking about decompression here, its only the choice between different",
  3445.   "versions of the index files in fact.", 0
  3446. }, *CompressList[] = {
  3447.   "  none  ",
  3448.   "compress",
  3449.   "  gzip  ", 0
  3450. };
  3451.  
  3452. char *FlatOptHelp[] = {
  3453.   "Flat or tree download",
  3454.   "Please choose whether to put all downloaded files in the same",
  3455.   "directory or to create the correct subdirectory as on Aminet ",
  3456.   "for each file downloaded", 0
  3457. }, *FlatDlList[] = {
  3458.   "subdir (create subdirs)",
  3459.   "flat   (same directory)", 0
  3460. };
  3461.  
  3462. char *ReadmeOptHelp[] = {
  3463.   "Readme download",
  3464.   "Please choose whether or not to download the .readme files",
  3465.   "along with the archives", 0
  3466. }, *ReadmeDlList[] = {
  3467.   "download archives only",
  3468.   "download .readme files too", 0
  3469. };
  3470.  
  3471. char *QuietOptHelp[] = {
  3472.   "Silent download",
  3473.   "Please choose wheter or not to perform transfers quietly. If you turn on",
  3474.   "quiet mode, no screen output happens until the download is completey over.",
  3475.   "This allows you to interrupt ADT using CTRL-Z and put it in the background",
  3476.   "using 'bg' to download quietly in the background", 0
  3477. }, *QuietDlList[] = {
  3478.   "give progress reports",
  3479.   "download quietly", 0
  3480. };
  3481.  
  3482. char *FindSitesHelp[] = {
  3483.   "Find site",
  3484.   "Here you can pick the find server to use for your queries. Feel free to",
  3485.   "them all and choose the fastest. All find servers have the complete list",
  3486.   "of all Aminet files online", 0
  3487. };
  3488.  
  3489. char FindString[120];
  3490.  
  3491. int cur_cmdkeys(c)
  3492.   int c;
  3493. {
  3494.   char buf[200];
  3495.   SORT *sorttype;
  3496.   int noredraw = 0, width = 0;
  3497.  
  3498.   buf[0] = 0;
  3499.  
  3500.   switch (c) {
  3501.  
  3502.   case 'd':
  3503.     if (Vis->num)
  3504.       cur_download();
  3505.     break;
  3506.  
  3507.   case 'f':
  3508.     cur_cmdstr("find");
  3509.     cur_status("(Use 'adt -f <keyword>' to start finds from the command line)");
  3510.     FindString[0] = 0;
  3511.     cur_getstring(FindString);
  3512.     if (*FindString)
  3513.       find_string(FindString, cur_status);
  3514.     break;
  3515.  
  3516.   case 'o':
  3517. options:
  3518.     switch (cur_subopt("options c)ompression d)ownload f)ind m)ethod s)ite")) {
  3519.     case '?':
  3520.     case 'h':
  3521.       cur_more(OptionsHelp);
  3522.       cur_dispmask();
  3523.       goto options;
  3524.  
  3525.     case 'c':
  3526.       setup_enumed(CompressOptHelp, CompressList, "compress");
  3527.       break;
  3528.  
  3529.     case 'd':
  3530.       cur_editvar("dlpath", "Enter path to download files to"),
  3531.       cur_editvar("send", "Enter command to use for sending files, eg. 'sz'");
  3532.       setup_enumed(FlatOptHelp, FlatDlList, "flatdl");
  3533.       setup_enumed(ReadmeOptHelp, ReadmeDlList, "readmedl");
  3534.       setup_enumed(QuietOptHelp, QuietDlList, "quietdl");
  3535.       break;
  3536.  
  3537.     case 'f':
  3538.       setup_findmethod();
  3539.       break;
  3540.  
  3541.     case 'm':
  3542.       trans_close();
  3543.       e_freeall();
  3544.       setup_method();
  3545.       get_recent();
  3546.       newvisible();
  3547.       NoFilesString = "Use v)iew or f)ind to get files to the display";
  3548.       break;
  3549.  
  3550.     case 's':
  3551.       if (trans_options())
  3552.         break;
  3553.       if (CdRom) {
  3554.         get_sitelocal();
  3555.         allvisible();
  3556.       } else {
  3557.         get_recent();
  3558.         newvisible();
  3559.       }
  3560.       break;
  3561.  
  3562.     default:
  3563.       noredraw = 1;
  3564.     }
  3565.     cur_nosubopt();
  3566.  
  3567.     break;
  3568.  
  3569.   case 'p':
  3570.     cur_status("Narrow format fits 80 columns, wide format format 132 columns");
  3571.     switch (cur_subopt("print n)arrow w)ide")) {
  3572.     case 'n':
  3573.       width = 1;
  3574.       break;
  3575.     case 'w':
  3576.       width = 2;
  3577.       break;
  3578.     }
  3579.     if (width) {
  3580.       cur_editvar("printer", "Enter the file to print the visible files to");
  3581.       print_listing(width);
  3582.     }
  3583.     cur_nosubopt();
  3584.     noredraw = 1;
  3585.     break;
  3586.  
  3587.   case 'q':
  3588.     cur_cmdstr("quit (and save config file)");
  3589.     option_save(ConfigFile);
  3590.     exit_adt(0);
  3591.     break;
  3592.  
  3593.   case 'Q':
  3594.     cur_cmdstr("quit (without saving config file)");
  3595.     exit_adt(0);
  3596.     break;
  3597.  
  3598.   case 'v':
  3599. view:
  3600.     switch (cur_subopt("view a)ll d)ir h)ide k)nown l)imit m)arked n)ew s)ite t)oggle")) {
  3601.     case '?':
  3602.       cur_more(ViewHelp);
  3603.       cur_dispmask();
  3604.       goto view;
  3605.  
  3606.     case 'a':
  3607.       if (!GotComplete) {
  3608.     get_complete();
  3609.     allvisible();
  3610.       }
  3611.       break;
  3612.  
  3613.     case 'd':
  3614.       cur_status("Select directory to show exclusively");
  3615.       dirvisible(cur_getstring(buf));
  3616.       cur_status("");
  3617.       break;
  3618.  
  3619.     case 'h':
  3620.       cur_editvar("hide", "Enter directories to hide permanently");
  3621.       invisible();
  3622.       break;
  3623.  
  3624.     case 'k':
  3625.       allvisible();
  3626.       break;
  3627.  
  3628.     case 'l':
  3629.       cur_status("Enter string to match in currently displayed descriptions");
  3630.       strlimit(cur_getstring(buf));
  3631.       cur_status("");
  3632.       break;
  3633.  
  3634.     case 'm':
  3635.       markedvisible();
  3636.       break;
  3637.  
  3638.     case 'n':
  3639.       get_recent();
  3640.       newvisible();
  3641.       break;
  3642.  
  3643.     case 's':
  3644.       if (!GotLocal) {
  3645.     get_sitelocal();
  3646.     cur_clear();
  3647.     cur_report("Sorting...");
  3648.     allvisible();
  3649.       }
  3650.       break;
  3651.  
  3652.     case 't':
  3653.       togglevisible();
  3654.       break;
  3655.  
  3656.     default:
  3657.       noredraw = 1;
  3658.     }
  3659.  
  3660.     cur_nosubopt();
  3661.     break;
  3662.  
  3663.   case 'r':
  3664.     if (Vis->num) {
  3665.       ENTRY *e=Vis->list[Vis->current];
  3666.  
  3667.       strcpy(buf, e->dir);
  3668.       tackon(buf, get_readme(e));
  3669.       adt_connect (disp_status, e->status & 1);
  3670.       display_remote(buf, get_readme(e));
  3671.       adt_disconnect();
  3672.     }
  3673.     break;
  3674.  
  3675.   case 's':
  3676.     sorttype = 0;
  3677. sort:
  3678.     switch (cur_subopt("sort a)ge d)ir n)ame s)ize")) {
  3679.     case '?':
  3680.       cur_more(SortHelp);
  3681.       cur_dispmask();
  3682.       goto sort;
  3683.     case 'a':
  3684.       sorttype = &sort_age;
  3685.       break;
  3686.     case 'd':
  3687.       sorttype = &sort_dir;
  3688.       break;
  3689.     case 'n':
  3690.       sorttype = &sort_name;
  3691.       break;
  3692.     case 's':
  3693.       sorttype = &sort_size;
  3694.       break;
  3695.     case 'A':
  3696.       sorttype = &sort_rage;
  3697.       break;
  3698.     case 'D':
  3699.       sorttype = &sort_rdir;
  3700.       break;
  3701.     case 'N':
  3702.       sorttype = &sort_rname;
  3703.       break;
  3704.     case 'S':
  3705.       sorttype = &sort_rsize;
  3706.       break;
  3707.     }
  3708.     if (sorttype) {
  3709.       cur_status("Sorting...");
  3710.       sort_list(Vis, sorttype);
  3711.       cur_dispfiles(Vis);
  3712.       cur_status("");
  3713.     }
  3714.     noredraw = 1;
  3715.     cur_nosubopt();
  3716.     break;
  3717.  
  3718.   case 'h':
  3719.   case '?':
  3720.     cur_more(MainHelp);
  3721.     break;
  3722.  
  3723.   case 't':
  3724.   case 13: case 10:
  3725.     noredraw = 1;
  3726.     if (!Vis->num)
  3727.       break;
  3728.     cur_mark(Vis, 0);
  3729.     tagcurrent();
  3730.     cur_mark(Vis, 1);
  3731.     cur_moveto(Vis, Vis->current + 1);
  3732.     break;
  3733.  
  3734.   case 'T':
  3735.     tagall();
  3736.     break;
  3737.  
  3738.   default:
  3739.     noredraw = 1;
  3740.  
  3741.   }
  3742.  
  3743.   if (!noredraw)
  3744.     cur_dispmask();
  3745.  
  3746.   return 0;
  3747. }
  3748.  
  3749.  
  3750.  
  3751. int cur_mainloop()
  3752. {
  3753.   int c;
  3754.  
  3755.   refresh();
  3756.   cur_dispmask();
  3757.   refresh();
  3758.  
  3759.   while ((c = inp_getchr())) {
  3760.     cur_listnav(Vis, c);
  3761.     cur_cmdkeys(c);
  3762.     move(Y_COMMAND, X_COMMAND);
  3763.     refresh();
  3764.   }
  3765.  
  3766.   return 0;
  3767. }
  3768.  
  3769. int cur_cleanup()
  3770. {
  3771.   nocbreak();
  3772.   echo();
  3773.   endwin();
  3774.   puts("");
  3775.   return 0;
  3776. }
  3777.  
  3778. int cur_getcmd()
  3779. {
  3780.   return getchr();
  3781. }
  3782.  
  3783.  
  3784. int cur_confirm(strings, retry)
  3785.   char **strings;
  3786.   int retry;
  3787. {
  3788.   int i, j, m = str_shift(str_longest(strings), COLS);
  3789.  
  3790.   for (i = 0; strings[i]; i++);
  3791.  
  3792.   clear();
  3793.  
  3794.   for (j = 0; j < i; j++) {
  3795.     move((LINES - i - 2) / 2 + j, m);
  3796.     addstr(strings[j]);
  3797.   }
  3798.  
  3799.   move((LINES - i - 2) / 2 + j + 1, m + str_longest(strings) - strlen("Press any key"));
  3800.   addstr("Press any key");
  3801.  
  3802.   refresh();
  3803.   inp_getchr();
  3804.  
  3805.   return 0;
  3806. }
  3807.  
  3808. int cur_refresh()
  3809. {
  3810.   refresh();
  3811.  
  3812.   return 0;
  3813. }
  3814.  
  3815. #endif
  3816.  
  3817. /*---------------------------------main program------------------------------*/
  3818. int init_vars()
  3819. {
  3820.   char *d, *t;
  3821.   int i;
  3822.  
  3823.   mystrcpy(HomeDir, (t = (char *) getenv("HOME")) ? t : "");
  3824.   Time= time(NULL);
  3825.  
  3826.   if (*HomeDir) {
  3827.     d = UserName;
  3828.     for (i = 0; HomeDir[i]; i++)
  3829.       if (HomeDir[i] == '/')
  3830.     d = UserName;
  3831.       else
  3832.     *d++ = HomeDir[i];
  3833.     *d++ = 0;
  3834.   }
  3835.   mystrcpy(ConfigFile, HomeDir);
  3836.   tackon(ConfigFile, ".adtrc");
  3837.  
  3838.   Alt->sort = Vis->sel = "";
  3839.   Alt->sort = Vis->sort = "";
  3840.   Alt->cmds = Vis->cmds = "d)ownload f)ind h)elp o)ptions p)rint q)uit r)eadme s)ort t)ag v)iew";
  3841.  
  3842.   Mark->sel = "Files to be downloaded";
  3843.   Mark->sort = "";
  3844.   Mark->cmds = "a)ction b)egin p)ath q)uit r)eadmes s)ubdirs v)erbose";
  3845.  
  3846.   return 0;
  3847. }
  3848.  
  3849. char recentbuf[100];
  3850. char *FirstConnectHelp[] = {
  3851.   "This seems to be the first time you connect. You'll be seeing the last",
  3852.   "14 days' uploads now. Next time you connect, all the files that were",
  3853.   "uploaded since this connection will be shown.", 0
  3854. };
  3855.  
  3856. char *LongAgoHelp[] = {
  3857.   "Your last connection was more than 14 days ago, but you'll only be seeing",
  3858.   "the last 14 days' uploads.  If you want to see everything, use v)iew a)ll",
  3859.   "and filter accordingly.", 0
  3860. };
  3861.  
  3862. int get_list(title, name)
  3863.   char *title, *name;
  3864. {
  3865.   TEMPFILE tfh;
  3866.   char buf[250];
  3867.   char *packer = "";
  3868.   long amotd = 0, lmotd = 0, sites = 0;
  3869.  
  3870.   e_freeall();
  3871.  
  3872.   if (option_getnum("compress") == 1)
  3873.     packer = ".Z";
  3874.  
  3875.   if (option_getnum("compress") == 2)
  3876.     packer = ".gz";
  3877.  
  3878.   sprintf(buf, "info/adt/%s", name);
  3879.  
  3880.   disp_clear();
  3881.   disp_report(title);
  3882.  
  3883.   adt_connect(disp_report, STATUS_LOCAL);
  3884.  
  3885.   NoFilesString = "Could not download index file";
  3886.   trans_remopen(&tfh, buf, packer, disp_report);
  3887.  
  3888.   if (tfh.fh) {
  3889.  
  3890.     FilesAreRemote= 0;
  3891.     disp_report("Reading index");
  3892.     do {
  3893.       *parsebuf = 0;
  3894.       fgets(parsebuf, PBUFSIZE, tfh.fh);
  3895.       if (!mystrncmp(parsebuf, "#amotd=", 7))
  3896.     amotd = p_atoi(parsebuf + 7);
  3897.       if (!mystrncmp(parsebuf, "#lmotd=", 7))
  3898.     lmotd = p_atoi(parsebuf + 7);
  3899.       if (!mystrncmp(parsebuf, "#sites=", 7))
  3900.     sites = p_atoi(parsebuf + 7);
  3901.  
  3902.     } while (*parsebuf == '#');
  3903.  
  3904.     read_adt_v2(tfh.fh);
  3905.     tclose(&tfh);
  3906.  
  3907.   }
  3908.  
  3909.   if (!option_getnum("nomotd")) {
  3910.     if (amotd > option_getnum("amotd")) {
  3911.       disp_clear();
  3912.       disp_report("Retrieving new Aminet message of the day");
  3913.       display_remote("info/adt/aminet-motd","Aminet message of the day");
  3914.       option_setnum("amotd", amotd);
  3915.     }
  3916.     if (lmotd > option_getnum("lmotd")) {
  3917.       disp_clear();
  3918.       disp_report("Retrieving new local message of the day");
  3919.       display_remote("info/adt/local-motd","Mirror message of the day");
  3920.       option_setnum("lmotd", lmotd);
  3921.     }
  3922.   }
  3923.   if (sites > option_getnum("sites")) {
  3924.     disp_clear();
  3925.     disp_report("Updating mirror list");
  3926.     trans_remopen(&tfh, "info/adt/sites", "", disp_status);
  3927.     if (tfh.fh) {
  3928.       option_loadfh(tfh.fh);
  3929.       tclose(&tfh);
  3930.     }
  3931.     option_setnum("sites", sites);
  3932.   }
  3933.  
  3934.   adt_disconnect();
  3935.  
  3936.   return 0;
  3937. }
  3938.  
  3939. int get_complete()
  3940. {
  3941.   if (!GotComplete)
  3942.     get_list("Downloading the list of all Aminet files", "ADT_AMINET");
  3943.  
  3944.   GotComplete = GotLocal = GotRecent = 1;
  3945.  
  3946.   return 0;
  3947. }
  3948.  
  3949. int get_sitelocal()
  3950. {
  3951.   if (!GotLocal)
  3952.     get_list("Downloading the list of files on this site", "ADT_LOCAL");
  3953.  
  3954.   GotLocal = GotRecent = 1;
  3955.  
  3956.   return 0;
  3957. }
  3958.  
  3959.  
  3960. int get_recent()
  3961. {
  3962.   long age;
  3963.  
  3964.   if (GotRecent)
  3965.     return 0;
  3966.  
  3967.   GotRecent = 1;
  3968.  
  3969.   LastCall = myatoi(option_get("newest"));
  3970.   age = time(NULL) - LastCall;
  3971.  
  3972.   if (LastCall == 0) {
  3973.     disp_confirm(FirstConnectHelp, 0);
  3974.     get_list("Downloading the list of new files", "ADT_RECENT_14");
  3975.   } else if (age < 7 * 86400) {
  3976.     get_list("Downloading the list of new files", "ADT_RECENT_7");
  3977.   } else if (age < 14 * 86400) {
  3978.     get_list("Downloading the list of new files", "ADT_RECENT_14");
  3979.   } else {
  3980.     disp_confirm(LongAgoHelp, 0);
  3981.     get_list("Downloading the list of new files", "ADT_RECENT_14");
  3982.   }
  3983.  
  3984.   if (newesttime() > option_getnum("newest"))
  3985.     option_setnum("newest", newesttime());
  3986.  
  3987.   return 0;
  3988. }
  3989.  
  3990. int init_display()
  3991. {
  3992.   disp_init = cur_dispinit;
  3993.   disp_getchar = cur_getchar;
  3994.   disp_cleanup = cur_cleanup;
  3995.   disp_choice = cur_choice;
  3996.   disp_mainloop = cur_mainloop;
  3997.   disp_report = cur_report;
  3998.   disp_status = cur_status;
  3999.   disp_confirm = cur_confirm;
  4000.   disp_more = cur_more;
  4001.   disp_inputstr = cur_inputstr;
  4002.   disp_clear = cur_clear;
  4003.   disp_refresh = cur_refresh;
  4004.  
  4005.   disp_init();
  4006.  
  4007. #ifdef SIGINT
  4008.   signal (SIGINT, adt_breakcheck);
  4009. #endif
  4010.  
  4011.   return 0;
  4012. }
  4013.  
  4014.  
  4015. int init_config()
  4016. {
  4017.   if (option_load(ConfigFile) || trans_init()) {
  4018.  
  4019.     InitialSetup = 1;            /* was 1 originally, but must be 0 to use predefined options */
  4020.     setup_method();
  4021.     InitialSetup = 0;
  4022.     option_save(ConfigFile);
  4023.  
  4024.   }
  4025.   return 0;
  4026. }
  4027.  
  4028. int show_usage()
  4029. {
  4030.   static const char ver[] = "$VER: ADT 2.6 (18.06.2001) Aminet Download Tool, AmigaOS version by Kolbjørn Barmen <kolla@nvg.org>";
  4031.   puts("Aminet Download Tool - 2.6 (18.06.2001)");
  4032.   puts("");
  4033.   puts("Usage: adt               (show new files since last call)");
  4034.   puts("       adt -f pattern    (find pattern using configured method)");
  4035.   puts("       adt -l            (show files local to configured site)");
  4036.   puts("       adt -n            (don't connect)");
  4037.   exit_adt(0);
  4038.   return 0;
  4039. }
  4040.  
  4041. int parse_commandline(argc, argv)
  4042.   int argc;
  4043.   char *argv[];
  4044. {
  4045.   if (argc <= 1) {
  4046.     if (CdRom) {
  4047.       get_sitelocal();
  4048.       allvisible();
  4049.     } else {
  4050.       get_recent();
  4051.       newvisible();
  4052.     }
  4053.     return 0;
  4054.   }
  4055.   if (argv[1][0] != '-' || !argv[1][1] || argv[1][2])
  4056.     show_usage();
  4057.  
  4058.   switch (argv[1][1]) {
  4059.   case 'f':
  4060.     if (argc != 3)
  4061.       show_usage();
  4062.     find_string(argv[2], cur_report);
  4063.     break;
  4064.  
  4065.   case 'l':
  4066.     if (argc != 2)
  4067.       show_usage();
  4068.     get_sitelocal();
  4069.     newvisible();
  4070.     break;
  4071.  
  4072.   case 'n':
  4073.     if (argc != 2)
  4074.       show_usage();
  4075.     NoFilesString="Use o)ptions to connect to a service/site";
  4076.     break;
  4077.  
  4078.   default:
  4079.     show_usage();
  4080.   }
  4081.  
  4082.   return 0;
  4083. }
  4084.  
  4085.  
  4086. int main(argc, argv)
  4087.   int argc;
  4088.   char *argv[];
  4089. {
  4090.   init_vars();
  4091.   init_display();
  4092.   init_config();
  4093.  
  4094.   parse_commandline(argc, argv);
  4095.   disp_mainloop();
  4096.  
  4097.   exit_adt(0);
  4098.   return 0;
  4099. }
  4100.  
  4101. TRANSFER TransferTypes[] =
  4102. {
  4103. #ifndef NO_BUILTIN_FTP
  4104.   "bftp",   "Builtin FTP: Use internal ftp routines to download files     ", bftp_init,
  4105. #endif
  4106. #ifndef NO_EXTERNAL_FTP
  4107.   "ftp",   "External FTP: Use the 'ftp' program to download files         ", xftp_init,
  4108. #endif
  4109.   "local", "Local files : Access a local, updated Aminet file collection  ", local_init,
  4110.   "cdrom", "CD-ROM      : Access an Aminet CD-ROM or non-updated files    ", local_init,
  4111.   0, 0, 0
  4112. };
  4113.  
  4114.  
  4115. /* to delete: ftp.log, pad, recent, short */
  4116.  
  4117.